добрый вечер всем!! ! procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,

Question

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X, 
 Y: Integer); 
begin 
 s1:=Button1.Hint; 
 Label1.Caption:=s1;

что за процедура что она делает

ой, помогите пожалуйста спать очень хочется. мне впринципе тут все ясно, но только что за MouseMove.

ой, спасибо большое, что то мне совсем наверно спать хочется, что даже думать не можется

Pavel Yurevich · Accepted Answer

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X, 
 Y: Integer); -реакция на перемещение мышки 
begin 
 s1:=Button1.Hint; -в переменную s1 записываем содержомое подсказки кнопки Button1 
 Label1.Caption:=s1;- присваиваем объекту label значение подсказки из кнопки. 
Но вобще не оптимальное решение. 
Достаточно сделать так 
 
procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X, 
 Y: Integer); 
begin 
 Label1.Caption:=Button1.Hint;