come creare dinamicamente un componente in Delphi, come TLabel o TEdit ... ecc

Question

con Delphi 2010

SQLQuery1.First; // move to the first record 
while(not SQLQuery1.EOF)do begin 
    // do something with the current record 
    // What's the code should i write in this part in order to create a TEdit 
    // containing the user fullname the current item. 
    ShowMessage(SQLQuery1['whom']); 
    SQLQuery1.Next; // move to the next record 
end; 

Answer 1

Beh, per creare un TEdit è necessario effettuare le seguenti operazioni:

Creare una variabile lavorare con. Una variabile locale o un membro della classe.

Edit: TEdit; 

Quindi lo costruisci.

Edit := TEdit.Create(Self); 

Il parametro per il costruttore è il proprietario. Questo assicura che il controllo venga distrutto quando il suo proprietario viene distrutto. La mia ipotesi è che Self sia un modulo.

Ora è necessario assegnare al controllo un genitore.

Edit.Parent := Self; 

o forse è su un pannello.

Edit.Parent := StatusPanel; 

Infine, si imposta il testo.

Edit.Text := SQLQuery1['whom']); 

con un'etichetta è tutto molto simile, tranne che si utilizza la proprietà Caption piuttosto che la proprietà Text.

E sicuramente vorrai impostare altre proprietà ma immagino che tu sappia già come farlo.

Answer 2

Var 
    AnEdit : TEdit; 
Begin 
    AnEdit := TEdit.Create(self); 
    AnEdit.Parent := self; // or some suitable container compoent e.g GroupBox, Panel 
    AnEdit.Top := ?; 
    AnEdit.Left := ? 
    // any other properties you weant to set. 
End; 

Il bit che cattura la gente fuori è l'impostazione genitore.

Answer 3

È inoltre possibile progettare visivamente i componenti, utilizzare lo GExperts Components to Code expert su di essi e quindi eliminarli nuovamente dal progettista del modulo. Per una coppia etichetta/modificare questo dà qualcosa come

var 
    Edit1: TEdit; 
    Label1: TLabel; 

    Edit1 := TEdit.Create(Self); 
    Label1 := TLabel.Create(Self); 

    Edit1.Name := 'Edit1'; 
    Edit1.Parent := Self; 
    Edit1.Left := 344; 
    Edit1.Top := 172; 
    Edit1.Width := 121; 
    Edit1.Height := 21; 
    Edit1.TabOrder := 0; 
    Edit1.Text := 'Edit1'; 
    Label1.Name := 'Label1'; 
    Label1.Parent := Self; 
    Label1.Left := 296; 
    Label1.Top := 176; 
    Label1.Width := 65; 
    Label1.Height := 17; 
    Label1.Caption := 'Label1'; 
    Label1.FocusControl := Edit1; 

maggior parte delle volte ha bisogno di qualche rielaborazione (rimuovere le linee TabOrder, sostituire la Sinistra/Top/... roba da SetBounds, allineare o la propria logica, ...) e per alcune proprietà/componenti non funziona affatto. Ma puoi risparmiare molto tempo in quel modo.