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

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

← →
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;

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