Mega Code Archive

 

Categories / Delphi / VCL

 

Buton üzerine birden çok satır yazmak

procedure TForm1.Button1Click(Sender: TObject); var i : integer; begin i:=GetWindowLong(Button1.Handle,GWL_STYLE ); SetWindowLong (Button1.Handle,GWL_STYLE , i or BS_MULTILINE); Button1.Caption := 'satır1'#13#10'satır2'; end;