spletni strežnik sloHost novice Kazalo   rss reference izdelanih spletnih strani
slohost gostovanje spletnih strani in spletno gostovanje
Runtime event handler assignment

I suppose it's quite a dumb question, but I have never had to do such a thing in the past:
When creating a control (AButton:TSpeedButton to be precise) at runtime on SomeForm, how can I assign an event handler to AButton's OnClick event? The event hadler is already there, as it was created by Delphi for another button.

ANSWER

Just assign it as you would anything else...for example here's how I assign an OnClick event to a dynamically created set of TMenu Items derived from a TStringList:

Procedure TMainF.CreateMenu(Sender: TObject);
Var
NewMenuItem : TMenuItem;
Begin
For i := 0 To CategorySL.Count - 1 Do
Begin
NewMenuItem := TMenuItem.Create(Self);
NewMenuItem.AutoHotkeys := maManual;
NewMenuItem.Caption := CategorySL.Names[i];
NewMenuItem.OnClick := ChooseCat;
CategoryListPm.Add(NewMenuItem);
End;
End;

In this example, CategoryListPm is an empty TPopupMenu and "ChooseCat" is a procedure that runs the code for each it's OnClick event.

08.11.2004 [Število ogledov: 29]


registracija domen
spletno gostovanje
izdelava spletnih strani
webmail | webstat
 
OBISKOV: 2366135
DATUM: 3.12.2024
URA: 6:9:4
IP: 18.97.14.85
www.maleZivali.com
spletna trgovina - vse za vaše hišne ljubljenčke (pse, muce, ribe ...)
www.Lektoriranje.info
zahvala za lektoriranje
www.diskom.si
Računovodski in knjigovodski servis (računovodstvo in knjigovodstvo)
 
 
O strežniku sloHOST | Registracija domen | Spletno gostovanje | Izdelava spletnih strani
Vsa vsebina in fotografije, ki se nahajajo na tej spletni strani so avtorsko zaščitene in pripadajo avtorjem spletne strani slohost.net.
Vsebine in fotografije najdenih na tej spletni strani ni dovoljeno kopirati, razvijati, razmnoževati ali posredovati naprej brez avtorjeve privolitve.
Na spletni strani je predstavljena izdelava spletnih strani in spletno gostovanje na spletnem strežniku sloHOST ter registracija domen .com/.net/.org/.eu/.ei.