Entwickler-Ecke

Sonstiges (Delphi) - OpenDialog bevor Application.create


fuggaz - Sa 12.05.07 17:24
Titel: OpenDialog bevor Application.create
Hallo,

Zum Ausführen meines Programmes muss der Benutzer eine Datei angeben.
Gibt er sie nicht an, beendet sich das Programm wieder.

Ich habe notdürftig in FormCreate den OpenDialog benutzt und dann beende ich mit Application.Terminate das Programm.
Allerdings blitzt es dann noch einmal kurz auf.
Ich habe schon versucht, das Fenster minimiert zu starten, das lässt Delphi dummerweise nicht zu.
Gibt es eine Möglichkeit mittels Delphisyntax oder WinAPI bevor Application.Create einen OpenDialog zu öffnen und somit einen Dateinamen zu ermitteln?

Ich hoffen ihr habt ein paar Ideen.

mfg fuggaz
(benutze Delphi7)


Christian S. - Sa 12.05.07 17:33
Du kannst den Dialog bereits vor Erstellung der Form anzeigen, wenn Du ihn in den Projektquelltext packst:


Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
 
program Project2;

uses
  Dialogs,
  Forms,
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

var
  od : TOpenDialog;

begin
  Application.Initialize;

  od := TOpenDialog.Create(nil);
  if od.Execute then
  begin
    Application.CreateForm(TForm2, Form2);
    Application.Run;
  end;
end.


fuggaz - Sa 12.05.07 17:52
Super, funktioniert:)

THX

mfg fuggaz


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!