Valor Comp. Criado Dinamicamente

Delphi

25/04/2006

Olá,

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

Roswel

Curtidas 0

Respostas

Massuda

Massuda

25/04/2006

A segunda forma deveria funcionar... lembre de usar com os mesmos nomes que você passou como sNome na sua prcCriaEdits.


GOSTEI 0
Rodc

Rodc

25/04/2006

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;



GOSTEI 0
Roswel

Roswel

25/04/2006

Sim rodc, era esse mesmo o problema ... colocando Self como Owner e usando a maneira que do Massuda funcionou perfeitamente !!! :D

Valew ae !!! :wink:


GOSTEI 0
POSTAR