Можно написать просто, мышь на панели:
procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Panel1.Width := 300; или Height - если не (panel1.align:=alleft)
end;
При нажатии на панель:
procedure TForm1.Panel1Click(Sender: TObject);
begin
Panel1.Width := 255;
end;
Ну и соответственно когда мышь на форме, и т.д.
Просто вопрос, двигаю мышью? по каким событиям должно отлавливаться?
Или ты хочешь медленно передвигая мышь по чему либо изменять его
размер?
Да, и если будет MouseMove и Click то последним сработает MouseMove можно даже не заметить изменения.
|