OnMouseMove

[Amateurprofi]

Zitat von MaDDoH:

hat super geklappt danke (;

aba statt 2 procedures zu machen würd ich die umschreiben:

Delphi-Quellcode:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, 
  Y: Integer); 
begin 
   if PtInRect(Button1.BoundsRect,Point(x,y)) then Button1.Enabled:=true; 
end;

und zwar so:

Delphi-Quellcode:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, 
  Y: Integer); 
begin 
   if PtInRect(Button1.BoundsRect,Point(x,y)) then Button1.Enabled:=true else Button1.Enabled:=false 
end;

Was aber in bestimmten Situationen nicht funktioniert, zum Beispiel wenn der Button direkt am Rand der Form liegt und du den Button an diesem Rand verläßt.