Delphi 7 – Baris Baru

Kadang kala teks pada dialog box terlalu panjang dan tidak tau cara bikin baris barunya?

begini caranya gunakan kode sLineBreak atau #13#10k atau chr(13)+chr(10). Untuk lebih jelasnya lihat contoh dibawah ini.

label1.caption:='Hello'+sLineBreak+'world!';
label2.caption:='Hello'+#13#10+'world!';
label3.caption:='Hello'+chr(13)+chr(10)+'world!';

var
  stlst: TStringList;
procedure TForm1.FormCreate(Sender: TObject);
begin
  stlst:=TStringList.create;
  stlst.add('Hello');
  stlst.add('world!');
  label4.caption:=stlst.text;
end;

label5.wordwrap:=true;
label5.caption:='Hello'^M^J'world';

label6.caption:=AdjustLineBreaks('Hello'#10'world');

Download Contoh

Cara Download

Selamat Berkarya