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

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

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

مُساهمة  alla23 في الثلاثاء نوفمبر 01, 2016 10:40 am

انشاء المكون  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;

alla23
عضو ذهبي
عضو ذهبي

عدد المساهمات : 66
نقاط : 182
تاريخ التسجيل : 26/05/2013
الموقع : http://delph.forumalgerie.net

http://delph.forumalgerie.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى