Delphi 之 標簽組件(TLabel組件)

　　標簽組件是比較常用的組件，現在來看看標簽組件的常用的基本屬性：

 

Align 

　　　它的作用是和窗體對齊，對齊的方式有alNone, alTop, alBottom, alLeft, alRight, alClient, alCustom.

Alignment 

　　   它的作用是標簽文本顯示的位置，對齊方式為taLeftJustify, taRightJustify, taCenter意思為左邊，右邊，中間

autosize　　

　　自動調整標簽的大小。true為自動大小，flase為不改變大小。

FocusControl

　　與某個控件相關聯，通常與ShowAccelChar一起使用。當ShowAccelChar為True時，可以使用一個加速鍵，在標簽上使用&符號。此時Alt+快捷鍵才有效果。

 

此時按下ALT+F鍵會切換文本框F，若按下ALT+G鍵會切換文本框G中

ShowAccelChar 

　　該屬性確定True時，使用&符號時，文本上會顯示一個下划線。

標簽的時間屬性

OnMouseEnter

　　鼠標移動到標簽上的事件。

OnClick

　　鼠標單擊事件

OnMouseLeave

　　鼠標離開事件

結合實例演示，當鼠標移動到標簽上顯示下划線。離開時下划線消失。當鼠標單擊獲取文本框焦點或按下快捷鍵切換焦點。

　

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Label1MouseEnter(Sender: TObject);
    procedure Label1MouseLeave(Sender: TObject);
    procedure Label1Click(Sender: TObject);
    procedure Label2MouseEnter(Sender: TObject);
    procedure Label2MouseLeave(Sender: TObject);
    procedure Label2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Label1.Alignment:= taCenter;


end;

procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
  (sender as TLabel).Font.Style:= [fsUnderline];
end;

procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
  (Sender as TLabel).Font.Style:=[];
end;

procedure TForm1.Label1Click(Sender: TObject);
begin
  if(Sender as TLabel).Name = 'Label1' then
    Edit1.SetFocus
  else
    Edit2.SetFocus;
end;

procedure TForm1.Label2MouseEnter(Sender: TObject);
begin
  (Sender as TLabel).Font.Style:=[fsUnderline];
end;

procedure TForm1.Label2MouseLeave(Sender: TObject);
begin
  (Sender as TLabel).Font.Style:=[];
end;

procedure TForm1.Label2Click(Sender: TObject);
begin
  if(Sender as TLabel).Name = 'Label2' then
    Edit2.SetFocus
  else
    Edit1.SetFocus;

end;

end.

 源碼下載地址：http://files.cnblogs.com/delphi2014/%E6%A0%87%E7%AD%BE1.zip