Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - TForm wird nicht unsichtbar :(


patmann2001 - Mi 11.09.02 19:15
Titel: TForm wird nicht unsichtbar :(
Hallo
Ich habe eine form1 Typ TForm.

Quelltext
1:
 form1.visible:=false;                    

Wenn jetzt jedoch Code im Programm ausgeführt wird, erscheint der Balken der Form auf dem Desktop. Dann habe ich der Form gesagt, sie soll minimiert gestartet werden, dann jedoch läuft das Prog erst ab, wenn ich sie wieder maximiere. Wie kann ich den mein Programm so laufen lassen das meine Form unsichtbar bleibt.

cu Patmann


DeCodeGuru - Mi 11.09.02 19:27

probiers mal mit:


Quelltext
1:
Form1.Hide;                    


patmann2001 - Mi 11.09.02 20:25

Ja
Hab ich schon
geht leider auch nicht.
cu Patmann


DeCodeGuru - Mi 11.09.02 20:31

schreib mal in die *.dpr folgenden Code:


Quelltext
1:
2:
3:
4:
5:
6:
begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.ShowMainForm := False;
  Application.Run;
end.


LCS - Do 12.09.02 08:06

Hi
noch ne Variante:

Quelltext
1:
2:
3:
4:
procedure TForm1.FormActivate(Sender: TObject);
begin
  ShowWindow(self.Handle, SW_HIDE);
end;


Gruss Lothar


patmann2001 - Do 12.09.02 10:47

HI
Die Lösung von LCS klappt leider auch nicht,das Formular wird trozdem ganz kurz sichtbar.

Von DeCodeGuru die Lösung ist super jedoch wird dann der Code in Form1 nicht ausgeführt. Das Programm beendet sich nicht u.s.w.

cu Patmann


LCS - Do 12.09.02 12:04

Hi
das Problem mit dem ganz kurz sichtbar kannst du damit lösen, dass du das Formular beim Erstellen ganz an den rechten Bildschirmrand verschiebst. Dadurch ist es praktisch überhaupt nicht mehr zu sehen.

Quelltext
1:
2:
3:
4:
TForm1.FormCreate....
begin
  Left := Screen.DesktopWidth;
end;


Gruss Lothar