Auswahl in Paint

[isilive]

Zitat von NamenLozer:

Delphi-Quellcode:

...
procedure onMouseMove;
var
  myRect: trect;
begin
  if not mousepressed then exit;
...

Wie krieg ich das mousepressed hin? Das kennt mein Delphi so nicht...

Ich nutze Delphi2006 und das Mousemove Ereignis schaut hier so aus:

Delphi-Quellcode:

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);