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