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

Вниз

Отменить и востановить 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;
Скачать: [xml.tar.bz2];

Наверх

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