Fórum Valor Comp. Criado Dinamicamente #319955
25/04/2006
0
Olá,
Seguinte, dependendo de uma determinada situação eu crio vários edits dinamicamente. Desse jeito:
Até ai td bem, mas depois eu preciso acessar os valores que foram digitados nestes edits, dai eu não consigo ... da access violation
Tentei das seguintes formas:
Gostaria de saber como eu poderia pegar o Text destes edits...
Seguinte, dependendo de uma determinada situação eu crio vários edits dinamicamente. Desse jeito:
procedure TfrmRELAssociado.prcCriaEdits(iLeft,iTop,iWidth,iHeigth,iTabOrder : integer; sText, sNome : string; tshParent : TTabSheet);
var
edtEdit : TEdit;
begin
edtEdit := TEdit.Create(tshParent);
with edtEdit do
begin
Left := iLeft;
Top := iTop;
Width := iWidth;
Height := iHeigth;
Text := sText;
Name := sNome;
TabOrder := iTabOrder;
Parent := tshParent;
end;
end;Até ai td bem, mas depois eu preciso acessar os valores que foram digitados nestes edits, dai eu não consigo ... da access violation
Tentei das seguintes formas:
TEdit(´nome do edit´).Text
TEdit(FindComponent(´nome do edit´)).Text
Gostaria de saber como eu poderia pegar o Text destes edits...
Roswel
Curtir tópico
+ 0
Responder
Posts
25/04/2006
Massuda
A segunda forma deveria funcionar... lembre de usar com os mesmos nomes que você passou como sNome na sua prcCriaEdits.
Responder
Gostei + 0
26/04/2006
Rodc
Tente colocar o Owner dele como o formulário, não o TabSheet.
edtEdit := TEdit.Create(frmRELAssociado);
with edtEdit do
begin
Left := iLeft;
Top := iTop;
Width := iWidth;
Height := iHeigth;
Text := sText;
Name := sNome;
TabOrder := iTabOrder;
Parent := tshParent;
end;
Responder
Gostei + 0
28/04/2006
Roswel
Sim rodc, era esse mesmo o problema ... colocando Self como Owner e usando a maneira que do Massuda funcionou perfeitamente !!! :D
Valew ae !!! :wink:
Valew ae !!! :wink:
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)