Anleitung über Buttonclick anzeigen lassen

mirco99 · Beiträge: 22

Hallo,

ich möchte eine Anleitung über einen Button anzeigen lassen.
Die Textlänge ist über 255 Zeichel lang.
Daher kann ich kein showmessage oder messagedlg verwenden.
eine Textdate möchte ich auch nicht verwenden, da das komplette Programm nur aus einer Datei bestehen sollte.

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm1.HilfeClick(Sender: TObject);
begin
   Edit1.Text := 'Meine Anleitung';
  MessageDlg(Edit1.Text, mtInformation, [mbOK], 0);

dies Funktioniert leider nur unter 255 Zeichen.

Bitte um eine Einfache Umsetzung.

Moderiert von Narses: Delphi-Tags hinzugefügt

zuma · Verfasst: Do 17.01.08 11:29

Hi Mirco,
mal wieder von mir den Tipp

Mach dir ein Fenster, das nur ein Memofeld und einen Button (Beenden) enthält.
Das Fenster rufst du dann immer mit dem anzuzeigendem String auf (zeigeStringInFenster(xString). Somit haste dann ein eigenes einfaches 'showmessage'-Fenster.
In dem Fenster brauchst du dann immer nur dem Memo den String zuweisen,
fertig.
Falls du noch Fragen hast - weißt ja, wie du mich erreichst

have a nice day

zuma

_________________
Ich habe nichts gegen Fremde. Aber diese Fremden sind nicht von hier! (Methusalix)
Warum sich Sorgen ums Leben machen? Keiner überlebts!

Kroko · Beiträge: 1284 W98 W2k WXP Turbo D

mirco99 hat folgendes geschrieben:

Hallo,

ich möchte eine Anleitung über einen Button anzeigen lassen.
Die Textlänge ist über 255 Zeichel lang.
Daher kann ich kein showmessage oder messagedlg verwenden.

Warum das denn nicht, String kann bis 2 GByte Zeichen aufnehmen :!:

mirco99 hat folgendes geschrieben:

eine Textdate möchte ich auch nicht verwenden, da das komplette Programm nur aus einer Datei bestehen sollte.

procedure TForm1.HilfeClick(Sender: TObject);
begin
Edit1.Text := 'Meine Anleitung';
MessageDlg(Edit1.Text, mtInformation, [mbOK], 0);

dies Funktioniert leider nur unter 255 Zeichen.

Bitte um eine Einfache Umsetzung.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

procedure TForm1.HilfeClick(Sender: TObject);
begin
  Application.MessagesBox('Meine Hilfe'+slineBreak+
             'Hier geht es weiter' 
             ,'Hilfe', MB_OK);
end;

klappt bei mir mit 18x16>256 Zeichen

_________________
Die F1-Taste steht nicht unter Naturschutz und darf somit regelmäßig und oft benutzt werden! oder Wer lesen kann, ist klar im Vorteil!

mirco99 · Beiträge: 22

Hi zuma & Kroko,

dank für die Tipps.

habe es hinbekommen.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme