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

[طيباوي ابو علي1]

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





type
TForm1 = class(TForm) {djelfa.info/vb}
procedure FormCreate(Sender: TObject);{djelfa.info/vb}
procedure CliqueLabel1(Sender: TObject);{djelfa.info/vb}
private public
end;{djelfa.info/vb}

var
Form1: TForm1;{djelfa.info/vb}

implementation{djelfa.info/vb}

{$R *.dfm}

uses StdCtrls;{djelfa.info/vb}

var
Label1: TLabel;{djelfa.info/vb}

procedure TForm1.CliqueLabel1(Sender: TObject);{djelfa.info/vb}
begin
{djelfa.info/vb}
Label1.AutoSize := false;{djelfa.info/vb}
Label1.Alignment := taCenter;{djelfa.info/vb}
Label1.Left := Label1.Left + Label1.Width;{djelfa.info/vb}
if Label1.Left <= Form1.Width then
begin{djelfa.info/vb}
Label1.Top := 20;{djelfa.info/vb}
Label1.Height := 15;{djelfa.info/vb}
Label1.Width := 50;{djelfa.info/vb}
end{djelfa.info/vb}
else
Label1.Left := 20;{djelfa.info/vb}

if Label1.Color = clRed then{djelfa.info/vb}
begin
Label1.Color := clGreen;{djelfa.info/vb}
Label1.Font.Color := clRed;{djelfa.info/vb}
Label1.Caption := '1954';{djelfa.info/vb}
end
else if Label1.Color = clGreen then
begin
Label1.Color := clWhite;{djelfa.info/vb}
Label1.Font.Color := clGreen;{djelfa.info/vb}
Label1.Caption := '1962';{djelfa.info/vb}
end{djelfa.info/vb}
else{djelfa.info/vb}
begin{djelfa.info/vb}{djelfa.info/vb}
Label1.Color := clRed;{djelfa.info/vb}
Label1.Font.Color := clWhite;{djelfa.info/vb}
Label1.Caption := '2016';{djelfa.info/vb}
end;{djelfa.info/vb}

end;

procedure TForm1.FormCreate(Sender: TObject);{djelfa.info/vb}
begin{djelfa.info/vb}

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