If you're going to cycle through all the components as Charlie showed earlier, you have to check type first. I.E.
For i := 0 to form1.components.componentcount - 1 do If (Sender is TSpeedbutton) Then If (Sender as TSpeedbutton).Name = 'caption' Then //do something else If (Sender as TSpeedbutton).Name = 'caption1' do //something else Charlie Chambers <[EMAIL PROTECTED]> wrote: Hi Tom, Looks like Peter showed another way that may work better for you but sounds like to me the problem is that the sender is not a TSpeedbutton so... the invalid type case issue. The name string as you've written it looks ok to me. The code i send works better where you send all the TSpeedbuttons click methods to one procedure and sort out which one your firing. You many want to iterate all the components as my #3 suggestion. Depends on where you put the code to make the changes for what your doing. If i can help further... let me know. Cheers, Charlie ----- Original Message ----- From: Nesler, Thomas J To: [email protected] Sent: Thursday, March 06, 2008 10:34 AM Subject: RE: [delphi-en] Locating Speedbutton controls Hello! I tried using this tip but I am getting a runtime error Einvalidcast when I try to run my program. The error is Invalid Type Cast. It appears that it does not like the Name property. Here is how I am using your suggestion: If (Sender as TSpeedbutton).Name = 'SpdBtn' + IntToStr(I+1) then begin case I+1 of 1: SpdBtn1.Caption := Strlist[1]; 2: SpdBtn1.Caption := Strlist[2]; ... End; End; Any suggestions? Tom Nesler -----Original Message----- From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Charlie Chambers Sent: Wednesday, March 05, 2008 6:39 PM To: [email protected] Subject: Re: [delphi-en] Locating Speedbutton controls Hi Tom, i think your looking for: if (Sender as TSpeedbutton).Name='SpdBtn1' then //do something if you don't know the name of the component then when you create the component set the Tag property to a known amount as 20-41 to find components as if (Sender as TSpeedbutton).Tag=21 then //do something Or you can iterate through all the components on the form as for C:=0 to Form1.ComponentCount-1 do begin if Components[C] is TSpeedbutton then begin //do something end; end; Cheers, Charlie ----- Original Message ----- From: Nesler, Thomas J To: [email protected] Sent: Wednesday, March 05, 2008 4:26 PM Subject: [delphi-en] Locating Speedbutton controls Hello! I have a Coolbar with 21speed buttons on it. I need to enter captions on the fly for these speedbuttons. How can I find these buttons and load the captions? I know there is some kind of search find function but I can't seem to locate it right now. Thanks in advance! Tom Nesler [Non-text portions of this message have been removed] [Non-text portions of this message have been removed] ----------------------------------------------------- Home page: http://groups.yahoo.com/group/delphi-en/ To unsubscribe: [EMAIL PROTECTED] Yahoo! Groups Links [Non-text portions of this message have been removed] --------------------------------- Never miss a thing. Make Yahoo your homepage. [Non-text portions of this message have been removed]
