Ma pytanko
Mam jedną procedure przypisaną do kilku przycisków. I jak z poziomu tej procedury moge odczytać "Caption" tego przycisku (przycisk utworzonydynamicznie)
0
0
pisze z pamieci:
(Sender as TButton).Caption
---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-
0
niestety to nie działa
0
Sławek napisał:
niestety to nie działa
pokaz procedure lub choc isitotny kawalek--Pawel
Delphi6
0
Moze sprobuj nadac wlasciwosci TAG przycisku kolejno cyfry 1,2.... a pozniej rozpoznawac jego Caption np za pomoca:
if ((Sender as TButton).Tag = 1) Then ZmiennaTypuString:= (Sender as TButton).Caption pozniej ....Tag = 2 itd...
Pozdrawiam
--<.>DiCz<.>
0
jak nie dziala jak dziala??????????
moze ty w ogóle nie nadajesz tej wlasciwosc dla przycisku?????
hehe
zrob w tej(tej ktora maja w OnClick wszystkie buttony) procedurce np. tak
Caption := (Sender as TButton).Caption;
hehe :)
jak nie dziala to nie wiem co jest nie tak---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-
0
A jak zrobić by wyswietlić Hint dowolnego komponentu - showmessage(Sender as <dowolny komponent>).Hint)
0
możesz napisać :
ShowMessage(TControl(Sender).Hint);
Powinno zadziałać.
0
ja sobie deklarowalem w zdarzeniu OnClick (dla wszystkich przyciskow) np. taka zmienna:
Temp : TSpeedButton ;
Tekst : String ; //tu sprawa dyskusyjna, dla niektorych komponentow moze byc string[10] a dla innych po prostu string ;
a pozniej odczytywalem z niej hint'a (wczesniej oczywiscie przy tworzeniu kompnonetu ustalajac go), wygladalo to mniej wiecej tak:
Tekst := Temp.Hint ;
a pozniej, gdy mialem numerek danego komponentu (korzystalem z tablicy dynamicznych komponentow), obsluga dalszych czynnosci to juz tylko bulka z maslem :)
P.S. Jesli nie zostalem zrozumiany, to z checia wytlumacze :)
Pozdrawiam {hello}
--LSD - Discover The New Way Of Thinking