BitBtn
Caros colegas, tenho uma tabela, onde nesta tabela tenho um campo que coloco o nome do componenete, ex: BitBtn1, BitBtn2 ...., e assim por diante, só que quando e pecorro a tabela e mando posicionar os BitBtn (botões) dá o seguinte erro:
ou seja estou passando como parametro o nome do campo que contem o nome do componente para a variável NomeBitBtn
Access violation at address 0044E8F9 im module ‘RD.exe’. Read of address 425449C6
Este é o código que estou usando
var
NomeBitBtn : string;
begin
//O campo Table1NOMECOMPONENTE é o campo onde contem o nome do BitBtn
NomeBitBtn := Dbf_EquipCOMPONENTE.value; {no caso BitBtn1, 2, 3, ...}
TBitBtn(NomeBitBtn).Top := 10;
TBitBtn(NomeBitBtn).Left := 10;
TBitBtn(NomeBitBtn).Enabled := True;
TBitBtn(NomeBitBtn).Visible := True;
end;
Onde está o problema.
Obrigado.
ou seja estou passando como parametro o nome do campo que contem o nome do componente para a variável NomeBitBtn
Access violation at address 0044E8F9 im module ‘RD.exe’. Read of address 425449C6
Este é o código que estou usando
var
NomeBitBtn : string;
begin
//O campo Table1NOMECOMPONENTE é o campo onde contem o nome do BitBtn
NomeBitBtn := Dbf_EquipCOMPONENTE.value; {no caso BitBtn1, 2, 3, ...}
TBitBtn(NomeBitBtn).Top := 10;
TBitBtn(NomeBitBtn).Left := 10;
TBitBtn(NomeBitBtn).Enabled := True;
TBitBtn(NomeBitBtn).Visible := True;
end;
Onde está o problema.
Obrigado.
Zlink
Curtidas 0
Respostas
Bfbraz
11/08/2005
Use o FindComponent.
Usado seu exemplo, faça deste modo.
var
NomeBitBtn : string;
begin
//O campo Table1NOMECOMPONENTE é o campo onde contem o nome do BitBtn
NomeBitBtn := Dbf_EquipCOMPONENTE.value; {no caso BitBtn1, 2, 3, ...}
with TBitBtn(FindComponent(NomeBitBtn)) do begin
Top := 10;
Left := 10;
Enabled := True;
Visible := True;
end;
end;
obs.: Não testei este teu exemplo, mas utilozo muito isso .
Att
Bruno
Usado seu exemplo, faça deste modo.
var
NomeBitBtn : string;
begin
//O campo Table1NOMECOMPONENTE é o campo onde contem o nome do BitBtn
NomeBitBtn := Dbf_EquipCOMPONENTE.value; {no caso BitBtn1, 2, 3, ...}
with TBitBtn(FindComponent(NomeBitBtn)) do begin
Top := 10;
Left := 10;
Enabled := True;
Visible := True;
end;
end;
obs.: Não testei este teu exemplo, mas utilozo muito isso .
Att
Bruno
GOSTEI 0
Zlink
11/08/2005
Valeu meu colega, essa dica foi D+
funcionou beleza.
funcionou beleza.
GOSTEI 0