Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.025 c
4-1193306040
MAXIMUS
2007-10-25 13:54
2008.07.20
Как установить русскую раскладку по умолчанию?


2-1213614223
Рустам1
2008-06-16 15:03
2008.07.20
delete from


15-1212613751
oldman (RO)
2008-06-05 01:09
2008.07.20
Что-то связь действительно никуда...


15-1212423217
Randew
2008-06-02 20:13
2008.07.20
Задачи на комбинаторику


4-1193206467
Dmitry S
2007-10-24 10:14
2008.07.20
WNetAddConnection2: The network path was not found.