Datei bei Programmstart laden

dsJena · Beiträge: 25 Windows Vista

Sorry, als Titel ist mir auf Anhieb nichts besseres eingefallen. :oops:

Mein Problem: Ich habe einen Texteditor programmiert, mit Richtext-Unterstützung, speichern, laden, drucken, alles schön. Nun möchte ich den Editor ins System eingliedern, das heißt als Standardeditor für Text- und .rtf-Datein festlegen. Klappt auch alles schön. Jetzt fehlt nur noch, dass ich, wenn ich auf die Textdatei (z.B. im Explorer) doppelklicke, der Text in meine Memo-Komponente geladen wird; bisher wird nur das Programm aufgerufen - man muss ja irgendwie den Dateinamen von Windows erhalten, oder so - ich weiß echt nicht, wie es machen soll - bitte helft mir!!!.

Und noch eine Frage: Wie kann man den Speicherndialog unterbinden, also einen Button erstellen, mit dem man dann direkt speichern kann?

Vielen Dank!

jakobwenzel · Verfasst: Mi 27.12.06 14:49

PARAMSTR

_________________
I thought what I'd do was, I'd pretend I was one of those deaf-mutes.

elundril · Verfasst: Mi 27.12.06 14:50

weil ich so nett bin hab ich dir da was gesucht:www.delphi-forum.de/...t=parameter+%F6ffnen

und nen dein topic um. zb in datei bei programmstart laden.

lg el

_________________

This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.

dsJena · Beiträge: 25 Windows Vista

Danke, für die Hilfe, ich bin ja noch neu hier. :wink:

Vielleicht noch zu meiner 2.Frage, mit dem Nur-Speichern - wie mache ich das?

elundril · Verfasst: Mi 27.12.06 15:04

dazu brauchst du eine Variable in dem du den Filename speicherst.
natürlich muss die variable global definiert sein. am besten im privat -declarations teil vom Form.

markieren

Delphi-Quelltext

1:
2:
3:
4:

if savedialog1.execute then begin
  Dateiname:=savedialog1.filename;
  Memo1.lines.savetofile(Dateiname)
end;

Dann überprüfst du ob dein Dateiname existiert.

markieren

Delphi-Quelltext

1:
2:
3:
4:

if length(Dateiname)>0 then
  Memo1.lines.savetofile(dateiname)
else
  Speichernohnedateiname;

beim "Neu" klicken muss man dann natürlich dem Dateinamen einen Leerstring zuweisen:

markieren

Delphi-Quelltext

1:	Dateiname:='';

lg el

PS. darf ich dabei auf meinen Textus verweisen?? www.delphi-forum.de/...59299&highlight=

_________________

This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.

dsJena · Beiträge: 25 Windows Vista

Danke, danke, danke, genau was ich gesucht habe!!!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme