События программно созданых компонентов

← →
mer © (2002-11-13 07:27) [0]

Как обработать событие onclick у программно созданого компанента???

← →
mmb © (2002-11-13 07:38) [1]

procedure FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Component := TComponent.Create; Component.OnMouseDown := FormMouseDown;

← →
Freeze © (2002-11-13 08:35) [2]

Это делается очень просто, просто нужно чтобы руки росли от куда следует, а не откуда у тебя ростут :-)

← →
MBo © (2002-11-13 08:39) [3]

>Freeze
Смелое заявление, ничего не скажешь

← →
Separator © (2002-11-13 08:45) [4]

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.

← →
mer © (2002-11-13 09:11) [5]

>Freeze чья бы корова мычала сам меня вторую неделю достоешь со своими танками

← →
Freeze © (2002-11-13 09:20) [6]

>mer Долой ламеров с этого сайта, долой, долой!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

← →
SuperUmnik © (2002-11-13 09:23) [7]

Рябята! давайте жить дружно!

← →
Леван (2002-11-13 09:37) [8]

Трудно представить программера, который знал все с рождения ,,,
Это к тому, что не надо бравировать сыоими знаниями и упрекать в незнание какой-нибудь хитрости других

пр существу: я несколько по другому делаю вариант 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;
Кстати. в этих примераъ форма тоже динамически создается и уничтожается.

Удачи
Леван

В "Королевстве" есть раздел "Hello, World !"
http://www.delphikingdom.com/helloworld/index.htm
В нем статья с примером, по-моему называется
"Пример создания и работы с динамическими объектами"

Извиняюсь
Правильная ссылка:
http://www.delphikingdom.ru/helloworld/runtime_comp.htm
Статья "Жизнь и смерть в режиме run-time"

Я не уведел ничего более простого, Freeze - должен извиниться, либо валить, либо в real подойти и получить :)

На мой взгляд реплики типа
> Это делается очень просто, просто нужно чтобы руки росли
> от куда следует, а не откуда у тебя ростут :-)

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

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

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

События программно созданых компонентов Найти похожие ветки