hab da mal so nen konstrukt gebastelt wie ich gedacht hab das es funktioniert:
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var eckpunkte,startx,starty:integer;
begin
eckpunkte:=0;
if Shift=ssleft then begin
case eckpunkte of
0:begin image1.canvas.moveto(x,y); startx:=x; starty:=starty; end;
4:begin image1.canvas.lineto(x,y); image1.canvas.lineto(startx,starty); end;
else image1.canvas.lineto(x,y);
end;
eckpunkte:=eckpunkte+1;
end;
end;
tuts aber leider nicht
. der meint inkompatible typen bei shift=ssleft. warum das denn in der hilfe stand das doch so.
gruß stefan