Zitat von
AlexII:
Wie mache ich das aber anders, also professionell? Weil mein Weg scheint mich irgendwie unprofessionell zu sein.
Mit
SetCapture und
ReleaseCapture. Dafür benötigst du aber ein Control mit
Handle. Und das hat
TImage nun mal ja nicht. Kannst aber das TImage auf ein TPanel packen.
Delphi-Quellcode:
procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
if (X < 0) or (Y < 0) or (X > TPanel(Sender).Width) or (Y > TPanel(Sender).Height) then
begin
ReleaseCapture;
TPanel(Sender).Caption := 'OnMouseLeave';
end else
begin
SetCapture(TPanel(Sender).Handle);
TPanel(Sender).Caption := 'OnMouseEnter';
end;
TPanel(Sender).SetFocus;
end;