Gegenteil von OnMouseMove?

[mkinzler]

Diese kannst du, wie erwähnt verwenden, wenn du diese manuell instantiierst. Oder Z.B. Delphi 7 als Formualeditor verwendest ( mit Experte "Components To Code" der GEXperts kannst du dann das Formular in Code wandeln, welchen du in FormCreate einfügen kannst).

[AlexII]

Zitat:

Zitat von mkinzler

Diese kannst du, wie erwähnt verwenden, wenn du diese manuell instantiierst. Oder Z.B. Delphi 7 als Formualeditor verwendest ( mit Experte "Components To Code" der GEXperts kannst du dann das Formular in Code wandeln, welchen du in FormCreate einfügen kannst).

Ist viel zu kompliziert :roteyes:

[mkinzler]

Warum, dort hast du die ganze VCL ( im Gegensatz zu den PEs) und die neuen Feature der VCL/IDE/Sprache.

[Sprint]

Zitat:

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;