انشاء المكون TLabel برمجيا وتغيير الااوان
صفحة 1 من اصل 1
انشاء المكون TLabel برمجيا وتغيير الااوان
انشاء المكون 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;
ali- مبرمج مجتهد
- عدد المساهمات : 913
تاريخ التسجيل : 29/07/2013
مواضيع مماثلة
» انشاء TEdit برمجيا
» طريقة انشاء قاعدة بيانات SQL برمجيا
» انشاء جدول برمجيا باستعمال أوامر أس كي ال بواسطة دلفي 5
» طريقة انشاء العناصر برمجيا في اللغات الثلاث فيزيال استيديو ( بزيك، سي شارب، سي ++ )
» هل بامكاني معرفة لون المكون
» طريقة انشاء قاعدة بيانات SQL برمجيا
» انشاء جدول برمجيا باستعمال أوامر أس كي ال بواسطة دلفي 5
» طريقة انشاء العناصر برمجيا في اللغات الثلاث فيزيال استيديو ( بزيك، سي شارب، سي ++ )
» هل بامكاني معرفة لون المكون
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى