VCL Delphi

  1. Home
  2. Delphi
  3. VCL
  4. 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;