Формы. [D7, Win2k]
Lera © (2004-08-12 14:23:00)
Помогите кто знает, как после перемещения формы по экрану с
помощью курсора мыши и "отпускания" ее выполнить определенную
операцию. Немогу понять какое это событие....если такое есть.
Спасиво.
Cosinus (2004-08-12 14:30:00) [1]
Должно помочь.
Момент окончания изменения размера или перемещения окна
type
TForm1 = class(TForm)
private
{ Private declarations }
public
procedure WMEXITSIZEMOVE(var Message: TMessage);
message WM_EXITSIZEMOVE;
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.WMEXITSIZEMOVE(var Message: TMessage);
begin
Form1.Caption := 'Finished Moving and sizing';
end;
В хелпе еще посмотри, вполне вероятно, что есть еще и по
отдельности, что то типа WM_MOVE или типа того :)
Наверх 
ЧАТ |
Орешник |
|
