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