'performing procedure onclick of array element' Thread RSS Feed

performing procedure onclick of array element

Wed, 23 Jul 2003 09:50:14 -0700

Hi,

I have a for loop that creates a series of labels, captioned with the file name of a series of files. When each is clicked, I want it to perform the procedure LoadEntry(I), where I is the integer value of the entry no to load. My procedure LoadEntry works fine, but there is an error in the code below

//print a list of the last 20 entries
for I := 1 to StrToInt(latestentry()) do
begin
if (I > 20) then
break;
entryno:=StrToInt(latestentry())-I+1;
LabelArray[I] := TLabel.Create(Self);
LabelArray[I].Parent := Self;
LabelArray[I].Left := 408;
LabelArray[I].Top := 136 + 15 * I;
LabelArray[I].OnClick:=LoadEntry(entryno);
fileurl := 'entries/'+IntToStr(entryno)+'.jnl';
LabelArray[I].Caption := 'Entry #'+IntToStr(entryno)+': '+DateTimeToStr(FileDateToDateTime(FileAge(fileurl )));;
end;

The error is in the line with the onClick handler. Any ideas?

Many thanks,

Micah

Re: performing procedure onclick of array element

Wed, 23 Jul 2003 12:41:26 -0700

you can only assign a TNotifyEvent to the OnClick. if you need the number then i'd suggest you'd use the TEdit(Sender).Tag

Re: performing procedure onclick of array element

Wed, 23 Jul 2003 14:02:07 -0700

: you can only assign a TNotifyEvent to the OnClick. if you need the number then i'd suggest you'd use the TEdit(Sender).Tag
:
Can you give me an idea of how to do this?

Re: performing procedure onclick of array element

Thu, 24 Jul 2003 02:13:37 -0700

: : you can only assign a TNotifyEvent to the OnClick. if you need the number then i'd suggest you'd use the TEdit(Sender).Tag
: :
: Can you give me an idea of how to do this?
:
Actually, I got it!