انشاء المكون TLabel برمجيا وتغيير الااوان

    type
      TForm1 = class(TForm)
        procedure FormCreate(Sender: TObject);
        procedure CliqueLabel1(Sender: TObject);
      private public
      end;

    var
      Form1: TForm1;

    implementation

    {$R *.dfm}

    uses StdCtrls;

    var
      Label1: TLabel;

    procedure TForm1.CliqueLabel1(Sender: TObject);
    begin

      Label1.AutoSize := false;
      Label1.Alignment := taCenter;
      Label1.Left := Label1.Left + Label1.Width;
      if Label1.Left <= Form1.Width then
      begin
          Label1.Top := 20;
          Label1.Height := 15;
          Label1.Width := 50;
      end
      else
          Label1.Left := 20;

        if Label1.Color = clRed then
        begin
        Label1.Color := clGreen;
        Label1.Font.Color := clRed;
        Label1.Caption := '1954';
        end
        else if Label1.Color = clGreen then
        begin
        Label1.Color := clWhite;
        Label1.Font.Color := clGreen;
        Label1.Caption := '1962';
        end
        else
        begin
        Label1.Color := clRed;
        Label1.Font.Color := clWhite;
        Label1.Caption := '2016';
      end;

    end;

    procedure TForm1.FormCreate(Sender: TObject);
    begin

      Label1 := TLabel.Create(self);
      Label1.Parent := Form1;
      Label1.AutoSize := false;
      Label1.Cursor := crHandPoint;
      Label1.Left := 20;
      Label1.Top := 20;
      Label1.Height := 15;
      Label1.Width := 50;
      Label1.Color := clRed;
      Label1.Font.Color := clGreen;
      Label1.Alignment := taCenter; // taLeftJustify taRightJustify
      Label1.Caption := '1962';
      Label1.OnClick := CliqueLabel1;

    end;

بسم الله الرحمن الرحيم

الصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين

انشاء TEdit برمجيا

    var
          Edits: TEdit;

    procedure TForm1.FormCreate(Sender: TObject);
    begin
          Edits := TEdit.Create(self);// delph.forumalgerie.net
          Edits.Parent := Form1;// delph.forumalgerie.net
          Edits.Show;// delph.forumalgerie.net
          Edits.Left := 50;// delph.forumalgerie.net
          Edits.Top := 50;// delph.forumalgerie.net
          Edits.Width := 157;
          Edits.Height := 5;
          Edits.Name := 'EditTest';
          Edits.Font.Name := 'Arial';
          Edits.Font.Charset := ARABIC_CHARSET;
          Edits.Font.Size := 9;
          Edits.Font.Style := [fsBold];
          Edits.BiDiMode := bdRightToLeft;
          Edits.MaxLength := 11;
          Edits.Enabled := True;
          Edits.ReadOnly := False;
          Edits.Visible := True;
          Edits.Hint := 'Je suis hint';
          Edits.ShowHint := True;
          Edits.PasswordChar := #0;  // Normal
          {Edits.PasswordChar := *; Mot de passe }
          Edits.TabOrder := 0; // 0 1 2 3 ...
          Edits.TabStop := True;
          Edits.Text := '';
          Edits.Font.Size := 11;
    end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
Edits.Free;  // delph.forumalgerie.net
end;

الازرار ضغط بيت بتن و بوتو Button BitBtn

مُساهمة من طرف mah11 في الأربعاء أبريل 01, 2015 10:39 pm
الازرار ضغط بيت بتن و بوتو Button  BitBtn

    procedure TForm1.BitBtn1Click(Sender: TObject);  //
    begin
      BitBtn1.Caption := 'Click her'; //
    end;  //

procedure TForm1.Button1Click(Sender: TObject); //
begin
  Button1.Caption := 'Click her'; //
end; //

    if not fileExists('Emdb1.db') then
    begin
     SQLQuery1.Close;
     SQLQuery1.SQL.Clear;
     SQLQuery1.SQL.Add('CREATE TABLE "Emdb1.db"(NOM CHAR(20),PRENOM CHAR(15),'+
     'CODE NUMERIC(5))');
     SQLQuery1.ExecSQL;
    end;