Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

События программно созданых компонентов [D6, Win95/98]

mer © (2002-11-13 07:27:00)
Как обработать событие onclick у программно созданого компанента???

Calm (2002-11-15 11:35:00) [1]
На мой взгляд реплики типа
> Это делается очень просто, просто нужно чтобы руки росли
> от куда следует, а не откуда у тебя ростут :-)

должны удаляться модераторами.

2 Freeze
Если тебе исполнилось 19 лет и ты прочитал, как присваивать обработчики событий в run-time, то это не означает, что ты круче всех на свете, а на остальных можно плевать.
Дело, разумеется, не в возрасте и не в обработчике событий, а в жизненной позиции. Тебе жить будет трудно.

P.S. В этой ветке я не откликаться не буду. Дискуссия закрыта.

mmb (2002-11-15 11:08:00) [2]
Я не уведел ничего более простого, Freeze - должен извиниться, либо валить, либо в real подойти и получить :)

ak75 (2002-11-13 10:41:00) [3]
Извиняюсь
Правильная ссылка:
http://www.delphikingdom.ru/helloworld/runtime_comp.htm
Статья "Жизнь и смерть в режиме run-time"

ak75 (2002-11-13 10:15:00) [4]
В "Королевстве" есть раздел "Hello, World !"
http://www.delphikingdom.com/helloworld/index.htm
В нем статья с примером, по-моему называется
"Пример создания и работы с динамическими объектами"

Леван (2002-11-13 09:37:00) [5]
Трудно представить программера, который знал все с рождения ,,,
Это к тому, что не надо бравировать сыоими знаниями и упрекать в незнание какой-нибудь хитрости других

пр существу: я несколько по другому делаю вариант MMB:

TCUSTOMDBGRID=CLASS(TDBGRID)
private
PROCEDURE CUSTOMKEYPRESS(SENDER:TOBJECT;VAR KEY:CHAR);
и при создании делаю так:

var
GRID:TCUSTOMDBGRID;
begin
GRID:=TCUSTOMDBGRID.CREATE(FORM);
grid.parent:=form;
GRID.OnKeyPress:=GRID.CUSTOMKEYPRESS;

далее где-то в программе описание

PROCEDURE TCUSTOMDBGRID.CUSTOMKEYPRESS(SENDER:TOBJECT;VAR KEY:CHAR);
BEGIN
..............
END;
Кстати. в этих примераъ форма тоже динамически создается и уничтожается.

Удачи
Леван

SuperUmnik (2002-11-13 09:23:00) [6]
Рябята! давайте жить дружно!

Freeze (2002-11-13 09:20:00) [7]
>mer Долой ламеров с этого сайта, долой, долой!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

mer (2002-11-13 09:11:00) [8]
>Freeze чья бы корова мычала сам меня вторую неделю достоешь со своими танками

Separator (2002-11-13 08:45:00) [9]
type
TMyButton = class(TButton)
public
constructor Create(AOwner: TComponent); override;
end;

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

implementation

{$R *.dfm}

procedure TForm1.MyButtonClick(Sender: TObject);
begin
// Че-нить делаешь
end;

constructor TMyButton.Create(AOwner: TComponent); override;
begin
inherited Create(AOwner);
OnClick:= TForm1.MyButtonClick
end;

end.

MBo (2002-11-13 08:39:00) [10]
>Freeze
Смелое заявление, ничего не скажешь

Freeze (2002-11-13 08:35:00) [11]
Это делается очень просто, просто нужно чтобы руки росли от куда следует, а не откуда у тебя ростут :-)

mmb (2002-11-13 07:38:00) [12]
procedure FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Component := TComponent.Create; Component.OnMouseDown := FormMouseDown;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »