Форум: "Основная";
Текущий архив: 2004.08.29;
Скачать: [xml.tar.bz2];

Вниз

Формы.   Найти похожие ветки 

← →
Lera   (2004-08-12 14:23) [0]

Помогите кто знает, как после перемещения формы по экрану с помощью курсора мыши и "отпускания" ее  выполнить определенную операцию. Немогу понять какое это событие....если такое есть. Спасиво.

---

← →
Cosinus ©   (2004-08-12 14:30) [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 или типа того :)

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.08.29;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.038 c