Отменить и востановить 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]

тип не тот

property OnResize: TNotifyEvent;

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