[VinceWindel]

Hi!
Ich bin grad' am lernen von Delphi. Und da will ich ein Programm programmieren, der "unsichtbar", also im Hintergrund läuft.
Nun hab' ich das als erstes so versucht:
_______________________
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Hide;
end;
_______________________
Nur funzt des leider nicht . Vllt. kann mir ja jmd. sagen, warum nicht und wie ich das hinkrieg.
Und dann hät' ich noch eine andere Frage (die eigentlich unter ein anderes Thema gehört): Wie kann ich bei einer Anwendung einstellen, dass es in den systray minimiert wird?
Ich benutze Delphi 3 Pro....
thx, Vincent

[bardelot]

OT: Warum Delphi 3 Pro und nicht Delphi 7 / 2005 Personal?

Eintrag auf der Taskleiste verstecken mit:
ShowWindow( Application.Handle,SW_HIDE);

oder

var owner :thandle;
owner := GetWindow(handle,Gw_Owner);
ShowWindow(owner,Sw_Hide);
self.hide;

Die Oberfläche mit Form1.Hide;

[VinceWindel]

ja, 2005 personal hab' ich auch. Aber ich hab' das Buch "Delphi 3 für Kids" da war halt 'ne Pro dabei.
Soll ich das ganze in die TForm1.FormCreate Prozedur reinschreiben? wenn ich z.B. 'ne Button.Click Prozedur mach', dann funktioniert das ganze auch tadellos.
Hab's mal probiert, nur funktioniert das nicht, komischerweiße. Kannst du mir bidde bidde erklären, was das ganze so genau bedeutet?
Danke für die Hilfe, Vincent

Dieser Beitrag wurde von VinceWindel bearbeitet: 11. Januar 2006 - 19:23

[bardelot]

So geht es

procedure TForm1.FormPaint(Sender: TObject);
begin
Form1.Hide;
ShowWindow( Application.Handle,SW_HIDE);
end;

Dieser Beitrag wurde von bardelot bearbeitet: 11. Januar 2006 - 20:11

[VinceWindel]

Hey, cooooooooooooooool!!!! Megadigges dange! Das klappt auch nur mit Form1.Hide; Warum geht des eig. net in der Form.Create Prozedur?
Vielen ganz ganz vielen dank, Vincent
zu dem Taskmanager: geht eig. scho: ich geh' halt aufn Prozess und auf "ENTF"... geht tadellos. Aber trotzdem: Vielen Dank, danach hab' ich gesucht!!!!

Dieser Beitrag wurde von VinceWindel bearbeitet: 11. Januar 2006 - 20:07

[bardelot]

Der Tipp von André wäre noch besser
Einfach Application.ShowMainForm:=false; einfügen

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.ShowMainForm:=false;
  Application.Run;
end.