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

Как переопределить метод OnResize   Найти похожие ветки 

← →
Alexandr_   (2002-02-18 14:18) [0]

Как переопределить метод OnResize

---

← →
Digitman ©   (2002-02-18 14:31) [1]

метод какого конкретно класса ? или, все же, речь идет о событии ?
и - "переопределить" или "назначить свою процедуру обработки события" ?

---

← →
Alexandr_   (2002-02-18 14:45) [2]

Класса TShape мне нужно выполнить кое какие действия когда меняется размер. Сообщениями уже пробовал ни чего не вышло

---

← →
Юрий Зотов ©   (2002-02-18 15:00) [3]

Это событие есть уже у класса TControl, но оно protected. Стало быть, используем общий прием:

type
TFriendShape = class(TShape);

TForm1 = class(TForm)
...
public
procedure MyHandler(Sender: TObject);
...
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
...
TFriendShape(Shape1).OnResize := MyHandler;
end;

procedure TForm1.MyHandler(Sender: TObject);
begin
...
end;

---

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

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



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