TLabel mit hartem Umbruch

[Union]

@himitsu: Du verwechselst das mit ExtractShortPathName

[himitsu]

Gut, dann vielleicht verwechselt.


PS:
https://en.wikipedia.org/wiki/Zero-width_space
Einfach nach jedem Zeichen ein #8203 einfügen. (geht natürlich nur mit Unicode)
Bzw. die Breite der Zeichen berechnen und jeweils an die gewünschten Stellen ein Leerzeichen einfügen, oder besser gleich den Zeilenumbruch.

[Shark99]

Zitat von himitsu:

https://en.wikipedia.org/wiki/Zero-width_space
Einfach nach jedem Zeichen ein #8203 einfügen. (geht natürlich nur mit Unicode)

Interessanter Ansatz. Leider scheint TLabel #8203 zu ignorieren (Delphi 2009).

[hathor]

Delphi-Quellcode:

procedure TForm1.Label5MouseEnter(Sender: TObject);
begin
 cap:= Caption;    // cap : String; //global
 caption:= Label5.Caption;
end;

procedure TForm1.Label5MouseLeave(Sender: TObject);
begin
 Caption:= cap;
end;