|
procedure
TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
Label1.Caption:='Le curseur est sur le bouton';
end;
procedure
TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState;
X,Y: Integer);
begin
Label1.Caption:='Le curseur est sur la form';
end;
|
