D6 - Form / Progr. schließen

[detom]

Hallo NG,

habe jetzt ein Formular welches beim Anwendungsstart sofort angezeigt wird.
Vom Formular wird automatisch eine externes Programm gestartet.
Das Formular soll sich ohne Useraktion automatisch sofort wieder schließen.
Wie mache ich das?

Ich habe momentan folgendes:

'######################################
unit wt2_rep;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleServer;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private-Deklarationen }
AccDB1 : OleVariant;
passwStr : String;

public
{ Public-Deklarationen }
end;

var
Form1: TForm1;

implementation

uses ComObj;
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
passwStr:= 'passwort';
AccDB1 := CreateOleObject('Access.Application');
AccDB1.OpenCurrentDatabase('CB1.mdb', False, passwStr);
Self.close;
end;
end.
'################################
Was muß ich wo eingeben?
Danke
Tom

[fLaSh11]

Close erst ab OnActivate.

[bluesbear]

Ich erinnere mich, daß hier soetwas ähnliches schon mal gefragt wurde. Der Fragesteller ist dann mit einer Konsolenanwendung glücklich geworden.

[RavenIV]

Du kannst ein Form nicht schliessen, bevor es erzeugt wurde.
Das Form wurde erst erzeugt, wenn Create komplett durchlaufen wurde.
Also macht es keinen Sinn, ein Self.Close in das Create zu schreiben.

Irgendwo im .dpr steht doch, dass das Form erzeugt wird.
Da anschliessend könntest Du es auch wieder schliessen.
Beachte aber, dass beim Schliessen der Hauptform die Anwendung geschlossen wird.