Форум: "Основная";
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];
ВнизКак переопределить метод 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c