comment créer dynamiquement un composant delphi comme TLabel ou TEdit ...etc

À L'Aide De 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;

Pourquoi voulez-vous créer un composant à chaque enregistrement? essayez-vous à l'aide d'un dbgrid à la place?
Voulez-vous un contrôle d'édition pour chaque enregistrement? S'agit-il va à l'intérieur d'une grille ou d'ailleurs? Si vous utilisez un DBGrid, il n'y a pas besoin de faire tout cela, elle prend déjà en charge de l'édition. Si vous avez besoin d'elle pour d'autres raisons, alors vous aurez besoin d'une certaine manière à maintenir une liste de ces contrôles, quelque part, de sorte que vous pouvez correctement gratuit lorsque le transfert est terminé. Il dépend fortement de l'endroit où vous souhaitez placer ces contrôles et combien de temps vous voulez que ces contrôles soient visibles. Personnellement, je pense que (si vous n'utilisez pas un DBGrid) que vous pouvez utiliser une chaîne de caractères de la grille de la place (montre une zone d'édition pour chaque enregistrement).
PS - ShowMessage(SQLQuery1['whom']); est plus sûr d'être ShowMessage(SQLQuery1.FieldByName('whom').AsString);
Plus sûr de ce qu', @Jerry?
Si pour une raison quelconque 'qui' est NULL, il peut échouer, parce que c'est une variante du type et il traite différemment la valeur NULL. Ou sinon, juste pour s'assurer que vous êtes en utilisant explicitement le type correct peut éviter beaucoup de divers problèmes de conversion.

InformationsquelleAutor Rafik Bari | 2011-12-16

6

Bien, de créer un TEdit vous devez faire ce qui suit:

Créer une variable de travailler avec. Soit une variable locale ou un membre de la classe.
```
Edit: TEdit;
```
Alors vous construire.
```
Edit := TEdit.Create(Self);
```
Le paramètre du constructeur est propriétaire. Cela garantit que le contrôle est détruit lorsque son propriétaire est détruit. Mon hypothèse est que Self est une forme.

Maintenant, vous avez besoin pour donner le contrôle de l'un des parents.
```
Edit.Parent := Self;
```
Ou peut-être sur un panneau.
```
Edit.Parent := StatusPanel;
```
Enfin, vous définissez le texte.
```
Edit.Text := SQLQuery1['whom']);
```
Avec une étiquette, elle est très similaire, sauf que vous utilisez le Caption propriété plutôt que de le Text propriété.

Et vous aurez sûrement envie de définir d'autres propriétés, mais je suppose que vous savez déjà comment faire.
- La meilleure façon de trouver les propriétés qui sont importants pour définir lors de la création dynamique d'un composant est à placer sur un formulaire, passez à l'affichage sous forme de texte, et de voir les propriétés qui sont diffusés. Ceux-là, vous devriez envisager de mettre en lorsque vous créez dynamiquement trop. (Après tout, en continu les composants sont créés dynamiquement :))
InformationsquelleAutor David Heffernan

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;

Le peu qui attire les gens consiste à définir un parent.

InformationsquelleAutor Tony Hopkinson

3

Vous pouvez aussi concevoir les composants visuellement, utilisez le GExperts Composants de Code d'experts sur eux et de les supprimer à partir du concepteur de formulaire à nouveau. Pour un label/modifier le paire cela donne quelque chose comme
```
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;
```
La plupart du temps, elle a besoin d'une refonte (suppression de la TabOrder lignes, remplacer la Gauche/Haut/... des trucs par SetBounds, l'alignement ou de votre propre logique, ...) et pour certaines des propriétés ou des composants qui ne fonctionne pas à tous. Mais vous pouvez économiser beaucoup de temps de cette façon.

InformationsquelleAutor Uli Gerhardt

with TEdit.Create(self) do
begin
  Parent:= ... // The name of the panel or form, on which you would like to place TEdit
  Text:= 'your text'; 
  // And you could set its position by giving "Left" and/or "Width", so on..
end;

InformationsquelleAutor csobang

Vous devez vous connecter pour publier un commentaire.