Startfenster

[khh]

Hallo zusammen,
ich möchte vor Programmstart ein Infofenster anzeigen.
Wie so allgemein üblich soll dies solange angezeigt werden, bis das hauptform aufgebaut ist und alle daten eingelesen sind .
Dies will ich in der Funktion FormCreate des hauptform erledigen.
Ich hab nun ebenfalls in dieser Funktion versucht besagtes Infofenster anzuzeigen und solange das hauptform mit hide zu "verstecken".
Leider klappt das nicht, das hauptform wird im Hintergrund trotzdem angezeigt.
Wie realisiert Ihr so was ??

Danke für eure Info

Gruss KH

[theo]

Wie realisiert Ihr so was ??

Kannst du in den Lazarus IDE Sourcen abgucken:
http://svn.freepascal.org/cgi-bin/viewv ... threv=1662" onclick="window.open(this.href);return false;
http://svn.freepascal.org/cgi-bin/viewv ... threv=1662" onclick="window.open(this.href);return false;

[Christian]

Besser als Matthias Gärtner hier kann mans wohl nicht erklären. auch wenn ers in lazarus etwas komisch implementiert hat ...

http://www.toolbox-mag.de/data/tx12008ftips.pdf

[khh]

ich danke euch!
was wär ich ohne diese Forum

[creed steiger]

Und hier die Version als Login-Screen

http://wiki.lazarus.freepascal.org/Adve ... gin_Screen" onclick="window.open(this.href);return false;

[khh]

@creed steiger
und wo gibts das gute alte delay ?
Gruss KH

[theo]

@creed steiger
und wo gibts das gute alte delay ?

Da kannst du entweder Sleep(..) nehmen oder in einen Loop gehen, z.B:

Code: Alles auswählen

procedure Delay(zeit:longInt)
var zeit1:longInt;
begin
 zeit1:=GetTickCont; //LCLIntf
 repeat
  Application.ProcessMessages
 until (GetTickCount-zeit1>zeit)
end;

[creed steiger]

Delay ist in crt (denke ich zumindest).

[khh]

@creed

Delay ist in crt (denke ich zumindest).

stimmt, und funktioniert einwandfrei.
Oder gibts Bedenken Delay zu verwenden ?