Fórum como passar o valor de uma variavel como parametros para mudar o flat de um botão no delphi 7 #412619
10/02/2012
0
wvalor:= P_10
ex: TabEmiss.(wvalor).flat:= false;
eu imaginei que poderia ser assim, mais nao da certo.
como faço?
Aguinaldo Santos
Curtir tópico
+ 0Posts
10/02/2012
Marco Salles
wvalor:= P_10
ex: TabEmiss.(wvalor).flat:= false;
eu imaginei que poderia ser assim, mais nao da certo.
como faço?
quem é
wvalor ??? Qual o Tipo
quem é
P_10 ??? Qual o Tipo
quem é
TabEmiss ???? Qual o Tipo
Poderia dar mais detalhes
Gostei + 0
10/02/2012
Aguinaldo Santos
Var
//tipoReserva: integer;
strSql2: string;
tes:string;
tes1: integer;
begin
tipoReserva:= 1;
if TabEmiss.DBEdit3.Text <> then
begin
strSql2:= SELECT * FROM horarios ;
strSql2:= strSql2 + WHERE UPPER(horario) LIKE + #39 + TabEmiss.DBEdit3.Text + #39;
TabEmiss.IBDataSeth.Close;
TabEmiss.IBDataSeth.SelectSQL.Clear;
TabEmiss.IBDataSeth.SelectSQL.Add(strSql2);
TabEmiss.IBDataSeth.Open;
tes1:= strToInt(TabEmiss.DBEdit4.Text);
tes:= P+intToStr(tes1);
TabEmiss.(tes).Flat:= True; // quero alterar a propriedade do botão, porem quero usar o valor da variavel que terá sempre um valor diferente
Gostei + 0
10/02/2012
Marco Salles
tes:= P+intToStr(tes1);
Mas P é quem ??? Tipo (Deve ser inteira)
TabEmiss.(tes).Flat:= True; //
Este typeCast não vai funcionar Tes é Integer
Alemo do mais TabEmiss parece ser a classe do Form e não do TspeedButton
Para funcionar teria que ser assim
TspeedButton(Objeto).flat:=True ;
Onde este Objeto é um Objeto do Tipo TspeedButton
quero alterar a propriedade do botão, porem quero usar o valor da variavel que terá sempre um valor diferente
Estou entedendo que voce quer associar este Objeto do Tipo TButon com o Valor de Tes (Inteiro)
seria isto ????
Gostei + 0
11/02/2012
Aguinaldo Santos
tes:= P+intToStr(tes1);
Mas P é quem ??? Tipo (Deve ser inteira)
TabEmiss.(tes).Flat:= True; //
Este typeCast não vai funcionar Tes é Integer -- Tes não é integer e sim string.
Alemo do mais TabEmiss parece ser a classe do Form e não do TspeedButton -- ai que esta o problema, vou explicar melhor: Imagine uma tela de vendas de passagem onde cada poltrona é um TspeedButton e a cada venda o nome desse TspeedButton muda, então eu quero mudar a propriedade FLAT do TspeedButton de False para True a cada click.
então como eu nao sei qual poltrona sera vendida, ai eu guardei dentro de uma variavel chamada Tes e quero passsar esse valor para o nome do speedbutton ( ex: TabEmiss.queroPassarOvalordeTesAqui.flat:= True -- So isso)
Digamos que seja assim:
tes:= P10 (P10 é o nome do TspeedButton)
agora quero passar o valor da variavel na linha que eu quero
TabEmiss.quero tes aqui.Flat:= true -- so isso, o resto eu sei.
Gostei + 0
12/02/2012
Marco Salles
chama SppedButon1 , e assim sucessivamente
Para recuperar este Objeto utilizando Uma String , se usa de Modo RAD a
function FindComponent
var
Numero_Poltrona:String;
C:TComponent;
begin
Numero_Poltrona:= edtNumero.Text;
C:= FindComponent(SpeedButton+Numero_Poltrona);
if Assigned(C)and(C is TSpeedButton) then
TSpeedButton(C).Flat:=not TSpeedButton(C).Flat
else
raise Exception.Create(Poltrona não existe);
end;
espero ter sido útil
Gostei + 0
12/02/2012
Marco Salles
chama SppedButon1 , e assim sucessivamente
Para recuperar este Objeto utilizando Uma String , se usa de Modo RAD a
function FindComponent
var Numero_Poltrona:String; C:TComponent; begin Numero_Poltrona:= edtNumero.Text; C:= FindComponent(SpeedButton+Numero_Poltrona); if Assigned(C)and(C is TSpeedButton) then TSpeedButton(C).Flat:=not TSpeedButton(C).Flat else raise Exception.Create(Poltrona não existe); end;
espero ter sido útil
Gostei + 0
12/02/2012
Marco Salles
A gente insere sem a tag
A gente insere com a tag
O que fazer ?????
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)