popuP?

[r-ober-t]

wie kann ich bei start eines programs ein popup erscheinen lassen??
kann mir da jemand helfen undzwar mit relativ viel quelltext??

mfg
r-ober-t

[leddl]

Was genau verstehst du unter einem PopUp? Willst du ein Fenster anzeigen lassen, daß der User bestätigen muß?
Dann such mal in der Hilfe nach ShowMessage

[Daniel G]

Och, das geht auch bestimmt mit wenig Quelltext... :lol:

Was willste denn genau? Sowas wie einen Splashscreen?

[r-ober-t]

ich möchte sowas wenn das geht, dass wenn ich das programm start ein popup automatisch
erscheint und ich dann auf einen button z.B. klicke und dann das programm also der rest weiter
läuft. Anschliessend kann man dann noch auf impressum klicken und dann erscheint das popup
nochmal..

mfg
r-ober-t

[dahead]

Erstell einfach ein neues Form(ular). Dieses rufst du dann via Button Click und bei OnCreate auf (z.b. Form2.ShowModal).

[Skullschildi]

Hallo, das könnte auch so aussehen:

Delphi-Quellcode:

procedure TForm2(*Popupformular*)Button1.click(Sender: TObject);
begin
Form1(*eigentliches Formular*).show;
form2.hide;
end;

stell in den Projectoptionen Form2 als Hauptform ein.
vergiss aber nicht, das Programm beim schliessen von Form1 mit

Delphi-Quellcode:

Form2.close;

richtig zu beenden, sonst läuft es noch als Prozess unsichtbar weiter.

[-=wWw=- AK23]

oder du machst es wie folgt:
(*mist* erstmal delphi starten. Das dauert so pervers lange seit der 2005er version)

Ertseinmal das Popupfenster einblenden:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
form2.Show;
form1.Hide
end;

Dannach das button zurück zum hauptfenster:

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
begin
form1.show;
form2.close;
end;

[hr]

Zitat:

Zitat von Skullschildi

stell in den Projectoptionen Form2 als Hauptform ein.
vergiss aber nicht, das Programm beim schliessen von Form1 mit

Delphi-Quellcode:

Form2.close;

richtig zu beenden, sonst läuft es noch als Prozess unsichtbar weiter.

Oder so:

Delphi-Quellcode:

procedure TForm1.FormDestroy(Sender: TObject);
begin
application.Terminate
end;

[r-ober-t]

kannst du mir vielleicht das alles nochmal genauer erklären wo das ist
und so???

mfg
r-ober-t

[turboPASCAL]

Hast du den Post von Daniel G gesehen ? Da ist ein Link der das schön zeigt und auch erleutert....

Zitat:

Zitat von Daniel G

Och, das geht auch bestimmt mit wenig Quelltext... :lol:

Was willste denn genau? Sowas wie einen Splashscreen?

[leddl]

[OT]
Hast du dir mal die diversen Anfänger-Tutorials durchgelesen, die dir empfohlen wurden?
[/OT]