منتدى متعدد المهام

منتدى متعدد المهام في عدة مجالات
 
الرئيسية  البوابةالبوابة  التسجيلالتسجيل  دخولدخول  

شاطر | 
 

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

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
ben taib allaa



عدد المساهمات : 64
نقاط : 182
تاريخ التسجيل : 28/04/2015
الموقع : http://delph.forumalgerie.net

مُساهمةموضوع: انشاء المكون TLabel برمجيا وتغيير الااوان   الإثنين أكتوبر 31, 2016 8:49 pm

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



.
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://delph.forumalgerie.net
sad11



عدد المساهمات : 10
نقاط : 32
تاريخ التسجيل : 01/10/2014

مُساهمةموضوع: رد: انشاء المكون TLabel برمجيا وتغيير الااوان   الخميس فبراير 09, 2017 11:00 pm

بارك الله فـــــــــــــــــــيك
الرجوع الى أعلى الصفحة اذهب الى الأسفل
 
انشاء المكون TLabel برمجيا وتغيير الااوان
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتدى متعدد المهام :: منتديات عالم الحواسيب الشخصية :: تعلم البرمجة باللغة الدلفي-
انتقل الى: