لیبل و باتن دوخطی

[Mask]

با سلام
چطوری باید کپشن لیبل و باتن رو دوخطی یا چند خطی کرد.
ممنون از جوابتون.

[Felony]

میتونید تو یک قسمت برنامه به صورت زیر Caption رو عوض کنید یا تو فایل DFM خصیصه Caption شئ مورد نظر رو پیدا کنید و به صورت زیر تغییرش بدید :


Label1.Caption:= 'Test1'+#13+'Test2'

[farideh_en]

multi-line Caption for a TButton


procedure TForm1.Button1Click(Sender: TObject);
var
TempButton: LongInt;
begin
TempButton:=GetWindowLong(Button1.Handle, GWL_STYLE);
SetWindowLong(Button1.Handle, GWL_STYLE, TempButton or BS_MULTILINE);
end; ویا


procedure SetMultiLineButton(AParent: TWinControl) ;
var j : integer;
ah : THandle;
begin
for j := 0 to AParent.ControlCount - 1 do
if (AParent.Controls[j] is TButton) then
begin
ah := (AParent.Controls[j] as TButton).Handle;
SetWindowLong(ah, GWL_STYLE,GetWindowLong(ah, GWL_STYLE) OR BS_MULTILINE) ;
(AParent.Controls[j] as TButton).Invalidate();
end;
end;
{
SetMultiLineButton(Panel1)
only Button1 will have
multi-lined caption.
}
procedure TForm1.Button2Click(Sender: TObject);
begin
Button1.Caption := 'This is a multi-line Button';
//SetMultiLineButton(Panel1) ;
SendMessage(Button1.Handle, BM_SETSTYLE, BS_MULTILINE,1);
end;
multi-line Caption for a TLabel


Label1.Caption := 'First line' + #13#10 + 'SecondLine';
و یا اینکه خاصیت Wordwrap باتن و یا لیبل را True کنید!
موفق باشید.