FAQ DelphiConsultez toutes les FAQ

1
2
3
4
5
6
7
8
9
10
11
Var MonBouton:TButton; 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  { La fenêtre est propriétaire du nouveau bouton } 
  MonBouton := TButton.Create(Self); 
  { mais c'est dans Panel1 qu'il doit s'afficher } 
  MonBouton.Parent := Panel1; 
  { ensuite on définit les autres propriétés } 
  MonBouton.Caption := 'Bouton !'; 
  MonBouton.Left := 10; 
end;

1
2
3
4
5
6
7
8
9
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  With TButton.Create(Self) Do 
  Begin 
    Parent := Panel1; 
    Caption := 'Bouton !'; 
    Left := 10; 
  End; 
end;

1
2
3
4
5
6
7
8
9
type  
  TForm1 = class(TForm)  
    ...  
  public  
    { Déclarations publiques }  
    { Le nom de la procédure importe peu  } 
    { Mais il FAUT respecter les paramètres  } 
    Procedure MonClickSurBouton  (Sender: TObject);  
  end;

1
2
3
4
Procedure TForm1.MonClickSurBouton  (Sender: TObject); 
Begin 
  ShowMessage('Click !'); 
End;

1
2
3
4
5
6
7
With TButton.Create(Self) Do 
Begin 
  Parent := Self; 
  Caption := 'Un bouton !'; 
  { ajout de l'évènement } 
  OnClick := MonClickSurBouton; 
End;

1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject); 
Var Edit:TEdit; 
begin 
  Edit:=TEdit(Form1.FindComponent('Edit1')); 
  If Edit<>Nil 
    Then ShowMessage(Edit.Text); 
end;

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Button1Click(Sender: TObject); 
Var Edit : TEdit; 
    i : Integer; 
begin 
  For i:=1 To 10 Do 
  Begin 
    Edit:=TEdit(Form1.FindComponent('Edit'+IntToStr(i))); 
    If Edit<>Nil 
      Then Edit.Text:=''; 
  End; 
end;

1
2
3
4
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  ShowMessage('Appui sur le bouton :'+TButton(Sender).Name); 
end;

1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject); 
Var i:Integer; 
begin 
  For i:=0 To ComponentCount-1 Do 
  If Components[i] Is TLabel Then 
    TLabel(Components[i]).Caption:='AAA'; 
end;

1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject); 
Var i:Integer; 
begin 
  For i:=ComponentCount-1 DownTo 0 Do 
  If Components[i] Is TLabel Then 
    Components[i].Free; 
end;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
function SearchLabel(Const Control : TObject) : TLabel ; 
Var 
   Form : TForm   ; 
   I    : Integer ; 
begin 
     Result:=Nil; 
     If Not Assigned(Control) Then 
        Exit ; 
     If Not (Control Is TControl) Then 
        Exit ; 
     Form:=OwnerForm(Control); 
     For I:=0 To (Form.ComponentCount-1) Do 
         If Form.Components[I] Is TLabel Then 
            If (Form.Components[I] As TLabel).FocusControl=Control Then 
               Begin 
                 Result:=Form.Components[I] As TLabel; 
                 Exit; 
               End; 
end;