Absatz im Label

[sui]

Moin,

wie kann ich eigentlich Text im Label mit Absätzen ausgeben?

Bei mir erscheint das alles in einer Reihe:

Code:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  Memory: TMemoryStatus;
begin
 Memory.dwLength := Sizeof (Memory);


  GlobalMemoryStatus(Memory);
   label1.Caption := ('Speicher: ' +
    IntToStr(Memory.dwTotalPhys div 1048576) + ' MByte' + '  Freier Speicher:  ' +
    IntToStr(Memory.dwAvailPhys div 1048576) + ' MByte');

end;

Gibt es nicht irgendwas wie das
im HTML? :gruebel:

[notam]

Delphi-Quellcode:

label1.caption := 'Zeile1' + #13#10 + 'Zeile2'; [...]

Gruß Manuel

[devnull]

Oder:

Delphi-Quellcode:

label1.caption := 'Zeile1' + char($0D) + 'Zeile2';

[Interceptor]

jau, die gibt es: + #13#10 +

In deinem Falle dann:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  Memory: TMemoryStatus;
begin
 Memory.dwLength := Sizeof (Memory);


  GlobalMemoryStatus(Memory);
   label1.Caption := ('Speicher: ' +
    IntToStr(Memory.dwTotalPhys div 1048576) + ' MByte' + #13#10 + 'Freier Speicher: '+
    IntToStr(Memory.dwAvailPhys div 1048576) + ' MByte');
end;

Mfg, Interceptor

Edit: Mist, zu spät :wink: