mehrzeiliger Text

[DiKay90]

Hallo, nach langem vergeblichen Suchen hab ich jetzt mal ne Frage...

Ich müchte gern eauf meiner Form einen Text zu stehen haben, welcher über mehrer Zeilen geht...
mit nem Label kann man nur eine Zeile machen und nun wollte ich ein memo Feld nehmen, aber dort habe ich immer so einen doofen Hintergrund.
Ich müchte das der Text sozusagen direkt auf meiner Form steht (Textintergrund transparent).

könnt ihr mir weiterhelfen?

und wenns geht wollte ich noch, dass man den Text dann so wie er da steht (selber Schriftart) ausdrucken kannn...

[mquadrat]

Bei einem Label kannst du die Eigenschaften Autosize und Wordwrap auf false stellen. Dann das Label so groß ziehen, wie du es haben möchtest und schon kann das Label auch mehr als eine Zeile.

[DeddyH]

Pack ein Label auf die Form, setz AutoSize auf false, ziehe es auf die gewünschte Größe und setze Transparent und WordWrap auf true. Schon geht auch mehrzeilig :zwinker:

[SaFu]

So könntest du es auch lösen

Delphi-Quellcode:

procedure TForm1.Ueber;
var Text: String;
begin
Text := 'EMeine Firma '+ chr(174) +' by:';
Text := Text + #10#13 + chr(169) +' 2007';
Text := Text + #10#13 + 'Version: 1.1.1.1');
Text := Text + #10#13 + '';
Text := Text + #10#13 + 'Sitz des Unternehmens';
Text := Text + #10#13 + 'Str: ';
Text := Text + #10#13 + 'Ort: ';
Text := Text + #10#13 + 'Tel: ';
Text := Text + #10#13 + 'Mobil: ';
Text := Text + #10#13 + '';
Text := Text + #10#13 + 'Web: http://www.MeinePage.de';
Text := Text + #10#13 + 'Email: [email][e-mail][/email]';
Label1.Caption:= Text;
end;

Gruß sascha

[DeddyH]

Dann lieber so:

Delphi-Quellcode:

procedure TForm1.Ueber;
var Text: String;
begin
  Text := 'EMeine Firma '+ chr(174) +' by:' +#13#10+
  chr(169) +' 2007' +#13#10+
  'Version: 1.1.1.1') +#13#10#13#10+
  'Sitz des Unternehmens' +#13#10+
  'Str: ' +#13#10+
  'Ort: ' +#13#10+
  'Tel: ' +#13#10+
  'Mobil: ' +#13#10#13#10+
  'Web: http://www.MeinePage.de' +#13#10+
  'Email: [email][e-mail][/email]';
Label1.Caption:= Text;
end;

[toms]

Oder wenn du die vielen #13#10 nicht magst, schreibst du dir eine kleine Wrapper-Procedure:

Delphi-Quellcode:

procedure AddLabelText(ALabel: TLabel; const s: string);
begin
  with ALabel do
  begin
    if s <> '' then
      Caption := Caption + #13#10;
    Caption := Caption + s;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var Text: String;
begin
  AddLabelText(Label1,'EMeine Firma '+ chr(174) +' by:');
  AddLabelText(Label1, chr(169) +' 2007');
  AddLabelText(Label1,'Version: 1.1.1.1');
  AddLabelText(Label1,'');
  AddLabelText(Label1,'Sitz des Unternehmens');
  AddLabelText(Label1,'Str: ');
  AddLabelText(Label1,'Ort: ');
  AddLabelText(Label1,'Tel: ');
  AddLabelText(Label1,'Mobil: ');
  AddLabelText(Label1,'');
  AddLabelText(Label1,'Web: http://www.MeinePage.de');
  AddLabelText(Label1,'Email: [email][e-mail][/email]');
end;

[julchen]

Und wer hat nun den Längsten? :gruebel:

[DeddyH]

Was hat das mit dem Thema zu tun? :mrgreen:

[nahpets]

Zitat:

Zitat von julchen

Und wer hat nun den Längsten? :gruebel:

die, nicht der, wir sind hier nur oberhalb der Gürtellinie unterweg :!:

Stephan

[julchen]

Zitat:

Zitat von DeddyH

Was hat das mit dem Thema zu tun? :mrgreen:

Das ist das Erste, was mir eingefallen ist, nachdem ich das Thema durchgelesen hatte!
:mrgreen: