| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Событие onClick [D6, XP]

T54 ©   (2006-10-26 19:31:00) 

Подскажите, плз, как отслеживать событие onClick у созданного программно объеккта (Button, Image и т.д.)

---

Ketmar   (2006-10-26 21:27:00) [1]

>[14] T54(c) 26-Oct-2006, 21:23
>работать перестаёт . . .
за метлой, за метлой. или поучить собственно язык -- может, ещё не все потеряно.

---

T54   (2006-10-26 21:23:00) [2]

Всем огромный пасиб, Leonid Troyanovsky - особый пасиб ! ! ! работает, только когда ставлю параметры:

type
TMyButton = class(TButton)
   procedure Click(Sender: TObject); override;
end;
работать перестаёт . . .

---

Leonid Troyanovsky   (2006-10-26 20:55:00) [3]

> Kolan ©   (26.10.06 20:49) [11]

> Вот тебе пример:



type
 TMyButton = class(TButton)
    procedure Click; override;
 end;

procedure TMyButton.Click;
begin
 inherited;
 ShowMessage('Yes!');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 with TMyButton.Create(nil) do
    Parent := Self;
end;


--
Regards, LVT.

---

Kolan   (2006-10-26 20:52:00) [4]

> Созданного Timage, плз . . .

procedure TMainForm.FormCreate(Sender: TObject);
begin
Image.OnClick := MyClick;
end;

---

Leonid Troyanovsky   (2006-10-26 20:49:00) [5]

> T54 ©   (26.10.06 20:47) [8]


with TMyButton.Create(nil) do Parent := Self;

--
Regards, LVT.

---

Kolan   (2006-10-26 20:49:00) [6]

Вот тебе пример:

TMainForm = class(TForm)
 private
   { Private declarations }
 public
   { Public declarations }

   procedure MyClick(Sender: TObject);
 end;

procedure TMainForm.MyClick(Sender: TObject);
begin

end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
 MainForm.OnClick := MyClick;
end;

---

T54   (2006-10-26 20:47:00) [7]

> > выше
> > procedure click(Sender: TObject);

и так я тоже далал была такая фишка, что стиралось и описание процедуры и сама процедура...
если не сложно напишите фрагмент кода, полностью для обработки onClick для Созданного Timage, плз . . .

---

Leonid Troyanovsky   (2006-10-26 20:47:00) [8]

> Kolan ©   (26.10.06 20:40) [7]

> выше


в корзину.

--
Regards, LVT.

---

Kolan   (2006-10-26 20:40:00) [9]

> выше
> procedure click(Sender: TObject);

---

Loginov Dmitry   (2006-10-26 20:38:00) [10]

T54 ©   (26.10.06 20:33) [5]
говорит, что Click: undeclared identrficator . . . вот

А ты что хотел?

---

T54   (2006-10-26 20:33:00) [11]

Я так и делаю: далее пишу image.onClick:=click;

ниже
procedure click(Sender: TObject);
говорит, что Click: undeclared identrficator . . . вот

---

Ketmar   (2006-10-26 20:25:00) [12]

[1]

---

T54   (2006-10-26 20:22:00) [13]

объукт создаю так:

image:=Timage.create(Form17);
image.Parent:=Form17

Подскажите, что далее, всё, что можно уже перепробывал по-моему

---

Leonid Troyanovsky   (2006-10-26 19:38:00) [14]

> T54 ©   (26.10.06 19:31)  

> Подскажите, плз, как отслеживать событие onClick у созданного
> программно объеккта (Button, Image и т.д.)


TMyButton = class(TButton)
protected
 procedure Click; override;
end;


--
Regards, LVT.

---

Kolan   (2006-10-26 19:34:00) [15]

> [0] T54 ©   (26.10.06 19:31)
> Подскажите, плз, как отслеживать событие onClick у созданного
> программно объеккта (Button, Image и т.д.)

procedure MyClick(Sender: TObject);
YoyrObject.OnClick := MyClick?

---

Наверх