Текущий архив: 2008.07.20;
Скачать: 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 вся ветка
Текущий архив: 2008.07.20;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.013 c
