wie mach ich das?
von bild1- beim nächsten markieren rahmen weg und bild 2 markieren
Delphi-Quellcode:
procedure TForm1.ImageMousM(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var TheRect: TRect;
begin
TheRect := Rect(TImage(Sender).Left-5,TImage(Sender).Top-5,TImage(Sender).Width+5,TImage(Sender).Height+5);
Form1.Refresh;
Form1.Canvas.FrameRect(TheRect);
end;
end.
das geht nid =)
wie mach ich das?