Fragespiel

[kris08]

Hallo und zwar habe ich das Problem, das wenn die Frage sehr lang ist sie nicht vollständig im Label angezeigt wird.
Gibt das da irgendeinen Befehl, mit dem man sagen kann das es in Zwei Zeilen angezeigt werden soll?

Danke für eure Hilfe

[Adrian112]

Hallo,

füg #13 im Quellcode ein, ungefär so:

Delphi-Quellcode:

Label1.Caption := '1.Zeile' + #13 + '2.Zeile';

[lbccaleb]

ja gibt es:

Delphi-Quellcode:

label1.wordwrap := true;

[DeddyH]

Setz mal WordWrap auf true.

[mkinzler]

oder nimm ein Memo

[kris08]

das Problem ist das nur eine der 15 Fragen zu lang ist und mit dem WordWrap, macht es ja alle Fragen in ein paar Zeilen

[mkinzler]

Nimm ein Memo, dann kannst du den Zeilenumbruch manuell setzen.

[kris08]

da müsste ich aber sovieles im quelltext nochmal ändern, gibt es keine Möglichkeit wo ich das label behalten könnte

[lbccaleb]

Zitat:

Zitat von kris08

da müsste ich aber sovieles im quelltext nochmal ändern, gibt es keine Möglichkeit wo ich das label behalten könnte

ja so wie oben beschrieben mit #13

[Namenloser]

Um genau zu sein #13#10, zumindest unter Windows.

[kris08]

Ich werde es jetzt doch mit einem Memo machen, was muss ich dann eingebeben das es in zwei zeilen angezeigt wird. Das Problem ist nämlich das ich ein Extra Formular wo ich die Fragen bearbeite und deshalb nicht weiß wie ich das machen soll, weil es ja wie gesagt nur eine Frage betrifft.

[mkinzler]

Setzt den Trenner an der gewünschten Stelle und weise es dann Memo.Lines.Text zu

[kris08]

tut mir leid das klappt so nicht, da ich wie gesagt meine fragen in einem extra formular bearbeite und ich das mit den zwei zeilen aber nur für eine frage brauche.

[mkinzler]

Delphi-Quellcode:

if Length( frage) > nMaxLaenge then Insert( sLineBreak, frage, nMaxLaenge);
Memo.Lines.Text := frage;

[kris08]

Was ist daran falsch???

Delphi-Quellcode:

procedure TfrFahrschule.FrageStellen;
var i : Integer;
begin
  lbRF.Caption := '';
  for i:=0 to ComponentCount-1 do
    if Components[i] is TCheckBox then
      TCheckBox(Components[i]).Checked := false;
  repeat
    nrAkt := Random(Length(frage));
  until not frage[nrAkt].warSchon;
  frage[nrAkt].warSchon := true;
  with frage[nrAkt] do begin
  if Length( frage) > nMaxLaenge then Insert( sLineBreak, frage, nMaxLaenge);
Memo.Lines.Text := frage;
    cbAnt1.Caption  := ant[1];
    cbAnt2.Caption  := ant[2];
    cbAnt3.Caption  := ant[3];
    if bild <> '' then
      // Bildladen;
      imBild.Picture.LoadFromFile('Bilder\'+frage[nrAkt].bild);
      // ShowMessage('Kein Bild');
  end;

[mkinzler]

Delphi-Quellcode:

if Length( frage[nrAkt]) > nMaxLaenge then Insert( sLineBreak, frage[nrAkt], nMaxLaenge);

[kris08]

und wie muss ich das verändern, damit das dann wirklich geht und die eine frage in zwei zeilen anzeigt????

Bitte helft mir

[mkinzler]

Der Code fügt einen Zeilenumbruch an der Stelle der festgelegten Maximallänge ein. Man müsste das natürlich noch anpassen, das er dies nicht mitten in einem Wort macht.

[DP-Maintenance]

Dieses Thema wurde von "Matze" von "Programmieren allgemein" nach "VCL / WinForms / Controls" verschoben.
Delphi-Frage

[kris08]

ok danke, das geht jetzt soweit, ich möchte nur auf das Memo etwas schreiben was bereits bei startend es Programmes da steht, bei anderen komponenten kann man das ja einfach bei caption rein schreiben, doch wie geht das bei einem Memo

[mkinzler]

Memo.Lines.Text

[Fussball-Robby]

Objektinspektor -> Lines

Mfg