Eigenes Fenster nach beenden des Programms???

[ConTaCt]

Hi


ich würde dringenst schnell einen Code brauchen!

und zwar!

Ein Programm das funktioniert!
so jetzt baue ich noch den Button "End" ein

der button selber heißt > Button1

Wenn ich auf End klicke, dann sollte ein kleines Fenster kommen wo steht

Mein Name und das Datum
und nach 5 Sekunden sollte das Programm dann automatisch beendet werden wenn ich auf End geklickt habe!

bitte schnell!!!

[cruiser]

Delphihilfe aufrufen und folgendes nachschlagen:

sleep
now
FormatDateTime

Wie man ein fenster aufruft erklär ich aber nun doch nicht, ich geh mal davon aus, dass du das hinbekommst

[Daniel]

Um das mit den 5 Sekunden zu realisieren, wäre eine Komponente TTimer ratsam. Die hat eine Eigenschaft Interval und die stellst Du auf 5000 (Angabe in Millisekunden). Über die Eigenscahft "Enabled" machst Du den Timer scharf. Das sollte im OnClick-Ereignis Deines Buttons passieren.

Für das kleine Fenster könnte man mit einer MessageBox experimentieren. Auch diese sollte im OnClick-Ereignis aufgerifen werden (z.B. "ShowMessage()").

Und das Programm-Ende würde im Ereignis "OnTimer" des Timers passieren. Du könntest das Formular schließen (Methode Close) oder böse die Anwendung abwürfen (Application.Terminate).


Und welche konkreten Fragen gibt es jetzt noch?

"Fertigen Code und das auch noch schnell ist" eine sehr große Anforderung. Meinst Du nicht, dass Du den Bogen etwas überspannst? Vermutlich sitzt Du gerade im Unterricht und hast keine Ahnung, wie Du die Aufgaben des Lehreres lösen sollst. Wenn ich mich irre, so korrigiere mich bitte.

[Tormentor32]

Passe bitte deinen Titel an! Da kann man sich nichts drunter vorstellen, klicke einfach auf den "edit"-button.

Zu deinem Problem, such mal nach Splash Screen vielleicht wirst du da fündig. Eine komplette Aufgabe wird dir hier wohl niemand erledigen, wenn du fragen zu Details hast, wo du nicht weiterkommst, dann helfen wir dir gerne.

Edit: Mann bin ich lahm heute! :stupid:

[Blackheart]

Schneller Code, und mal Crashkurs anschauen auf die Schnelle.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Showmessage('Mein Name - '+DateToStr(Now));
  Sleep(5000);
  Close;
end;

[lucius]

Dein Name muesste kein Problem sein.
Datum: StrToDate(Date)

Gruss Lucius.

[SirThornberry]

Könntest du dem Beitrag bitte eine aussagekräftigen Titel geben? Eine schnelle Antwort will hier jeder :-D
Kodex

[Tormentor32]

Ich glaub du meintest DateToStr(Date) :wink: :stupid:

Warn die Finger wieder schneller als der Kopf :mrgreen:

[Luckie]

Du wirst eine Antwort bekommen, wenn sich jemand dein Posting durchliest und bereit ist dir zu helfen. Und diese Bereitschaft steigt sehr, wenn man sich an gewisse Forenregeln hält, denen du übrigens zugestimmt hast bei deiner Anmeldung.

Die Delphipraxis ist kein "Schreib mir mal mein Programm"-Forum. Desweiteren solltest du deinem Thread eine aussagekräftige Überschrift geben. Und was ich eigentlich als selbstverständlich erachte, ist einigermassen korrektes und verständliches Deutsch. Auf einen so hingerotzten Beitrag hab eich ehrlich gesagt keine Lust zu antworten. Wir sollen uns Mühe machen und Zeit nmehmen dir zu antworten, dann solltest du auch bereit sein dir die Zeit zu nehmen ein entsprechendes Posting zu verfassen.

[lucius]

Hast recht Tormentor :-D
Meine Finger waren zu schnell und Ich sitzte selber im Knoten :zwinker:

Lucius.