Скачать: CL | DM;

Отменить и востановить OnResise формы.   Найти похожие ветки 

← →
Alex_C   (2008-06-23 14:12) [0]

Понимаю, что туплю, но от жары в голову ничего не лезет
В ф-ции нужно отменить дейчтвие OnResize для формы.
Делаю так

procedure FormResize(Form: TForm);
type
 TOnResizeProc = procedure(Sender: TObject);
var
 OnResizeProc: TOnResizeProc;
begin
 OnResizeProc := @Form.OnResize;
 Form.OnResize := nil;
..... чего-то делаем
теперь надо восстанвить:
Form.OnResize := OnResizeProc^ - ошибка. А как правильно?

---

← →
Поросенок Винни-Пух ©   (2008-06-23 14:17) [1]

без крышки

---

← →
Alex_C   (2008-06-23 14:22) [2]

Нет. Тоже ошибка.

---

← →
Поросенок Винни-Пух ©   (2008-06-23 14:23) [3]

тип не тот

---

← →
Поросенок Винни-Пух ©   (2008-06-23 14:24) [4]

property OnResize: TNotifyEvent;

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c