Zeilenumbruch in einer Button1.Caption

[Hercules]

Schönen guten Tag und Hallo an alle!!
Wenn ich in einer Button1.Caption einen Zeilenumbruch machen will,
dann funktioniert das mit Delphi prima. Lazarus macht da leider nicht mit.
Weiß jemand Rat?
Ich wünsche allen noch einen schönen und sonnigen Tag.
Mit freundlichen Grüßen, Hercules.

[Eclipticon]

Ich kann zwar bei Deiner Frage momentan nicht weiterhelfen, aber Du greifst hier aus der Deklaration eines Objekts (TForm1) schon auf eine konkrete Instanz dieses Objekts (Form1) zu ... ist das klug?

[Socke]

ist das klug?

Nein, Besser wäre Self.Button1.Caption := 'abvc und so weiter...';

Zum eigentlichen Thema: ich weiß nicht, woran es liegt, weil es bei mir einwandfrei funktioniert; Vielleicht versuchst du es mal damit, dass du deine Variable CrLf durch die Konstante "LineEnding" (Unit System -- ist also immer vorhanden) ersetzt. Ansonsten wären weitere Informationen zu den folgenden Punkten hilfreich:

• Lazarus-Version
• FPC-Version
• Betriebssystem(-Version)
• WidgetSet (Win32, GTK, GTK2, QT, Cocoa, usw.)

[Maik81ftl]

Ähmmm SChon mal an die Überlegung von Steuerzeichen gedacht:?:

vetrsuch mal dein glück mit

Code: Alles auswählen

Form.Button1.Caption:= 'Aktion' + #13 + 'anlegen';

ist grad aus der kalten geschrieben, hab zwar Larazus zur hand, aber im mom net den nerf, was zu machen.

ScheißUmzug.

[Socke]

Ähmmm SChon mal an die Überlegung von Steuerzeichen gedacht:?:

Schonmal daran gedacht, seinen Screenshot, der einen Quelltextausschnitt enthält, zu betrachten? Hab ich zuerst auch nicht gemacht, aber dann doch gesehen, dass Hercules daran gedacht hat.

[Hercules]

Hallo und vielen Dank für Eure schnelle Reaktion.

Hallo Socke: Wie muß ich denn die Konstante LineEnding einsetzten?
Ich habe gesagt:

Code: Alles auswählen

procedure TForm1.FormCreate(Sender: TObject);
const LineEnding=#13#10;
begin
  Form1.Button1.Caption:='Aktion' + LineEnding + 'anlegen';
end;

Der Combiler meckert zwar nicht, aber es ist keine Wirkung da.
Liegt sicher daran, daß ich das nicht richtig anwende.
Ich habe das auch schon mit

Code: Alles auswählen

Self.Button1.Caption:='Aktion' + LineEnding + 'anlegen';

versucht, aber auch ohne Erfolg.

Ich habe mir gestern mal Lazarus Version 0.9.30 runtergeladen.
Vielleicht bringt das was.

[m.fuchs]

Hallo Socke: Wie muß ich denn die Konstante LineEnding einsetzten?

Code: Alles auswählen

const LineEnding=#13#10;

Das ist nicht nötig, LineEnding ist bereits definiert, du musst sie nur benutzen.

ABER: Ich bekomme trotzdem das gewünschte nicht hin.
@Socke: Kannst du mal deinen Quellcode posten? Zumindest hier mit Lazarus 0.9.30 unter Windows geht es jedenfalls so nicht:

Code: Alles auswählen

Button1.Caption := 'Hallo' + LineEnding + 'Test';

Aber vielleicht bin ich auch zu doof.

mfg
Micha

[Hercules]

Hallo Micha, ich weiß nicht, ob ich mich angesprochen fühlen soll,
oder Socke.
Den Quellcode findest Du im Anhang,
ich hoffe, daß man den lesen kann.
MfG Hercules.

[m.fuchs]

Nein, in dem Fall war schon Socke gemeint. Er hat es ja geschafft dass es geht.

Übrigens: kennst du schon die Highlighter-Funktion? Oben einfach da wo "Highlighter" steht die gewünschte Programmiersprache auswählen und dann kannst du Quellcode hier direkt einfügen.
Ist besser als ein Bildanhang.

[Socke]

Man nehme also ein leeres Lazarus-Projekt des Typs "Anwendung" bzw. Application und platziere dort eine Schaltfläche und vergrößere sie so, dass der gewünschte Text problemlos auf mehrere Zeilen verteilt werden könnte:

Code: Alles auswählen

procedure TForm1.FormCreate(Sender: TObject);
begin
  Self.Button1.Caption := 'Erste Zeile' + LineEnding + 'Zweite Zeile';
end;

Wie schon gesagt: die Konstante LineEnding ist bereits in der Unit System definiert. Die wird in jeder anderen Unit automatisch eingebunden. Du musst die Konstante also nicht selbst noch einmal definieren.

Bisher steht es hier zwei zu eins. Ich verwende hier Lazarus aus SVN und Linux mit GTK 2; ich könnte mir also vorstellen, dass es ein Fehler in Lazarus ist, der nur unter Windows zu Tragen kommt, da es unter Delphi anscheinend funktioniert.

[Lannes]

... da es unter Delphi anscheinend funktioniert.

das funktioniert auch in Delphi 3 und 2010(die anderen habe ich nicht getestet) nicht mit TButton, funktionieren tut es mit dem TSpeedButton.

[MAC]

Ich würde mal ganz stark vermuten das es nicht ein fehler von Lazarus unter Windows ist.
Es ist ganz offensichtlich ein Fehler von Windows...

getestet unter Win7 Lazarus 0.9.31 30229 2.4.3

Code: Alles auswählen

// Neu-->Anwendung
// TButton :Button1
// TSpeedButton:SpeedButton1
// TMemo: Memo1
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Caption:= Memo1.Caption;
end;
 
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
SpeedButton1.Caption:= Memo1.Caption;
end;

--> Ergebnis : Button funktioniert nicht - SpeedButton klappt.

[Maik81ftl]

Ähmmm SChon mal an die Überlegung von Steuerzeichen gedacht:?:

Schonmal daran gedacht, seinen Screenshot, der einen Quelltextausschnitt enthält, zu betrachten? Hab ich zuerst auch nicht gemacht, aber dann doch gesehen, dass Hercules daran gedacht hat.

hab ich beachtet. kommst mir nur arg komisch vor, das er mit der konst probleme hat. ich verwende die

Code: Alles auswählen

#13

bei Meldungen und das reicht mir mit dem Zeilenumbruch.

[Eclipticon]

ich verwende die

Code: Alles auswählen

#13

bei Meldungen und das reicht mir mit dem Zeilenumbruch.

Auch wenn's vielleicht funktioniert ... solltest Du nicht lieber den auf dem Betriebssystem deines Vertrauens ueblichen EOL-Marker LF verwenden?

[Lannes]

Es ist ganz offensichtlich ein Fehler von Windows...

Eine nicht vorgesehene Funktionalität ist kein Fehler