انشاء المكون 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;
مواضيع مماثلة
» خطوات انشاء قاعدة بيانات بمعالج و خطوات انشاء قاعدة بيانات يدويا
» مشروع انشاء برنامج لتسيير محل صيدلية ب #c
» كيفية انشاء أليا alias أو اسم مستعار
» انشاء جدول قاعدة بيانات من نوع بارادوكس
» مشروع انشاء برنامج لتسيير محل صيدلية ب #c
» كيفية انشاء أليا alias أو اسم مستعار
» انشاء جدول قاعدة بيانات من نوع بارادوكس
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى