OnMouseMove

[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;