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

alla23 الثلاثاء نوفمبر 01, 2016 10:40 am

الكود:: 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;