Hilfe mit Komponente gesucht

ALEXTHEGIANT · Hält's aus hier Beiträge: 5

hi,

ich möchte ein fenster machen was zu beginn meines programmes aufpoppt. Dabei soll der user den namen angeben, in dem dann zukünftig gespeichert wird. Sobald er ok klickt soll sich das fenster schließen.

Die einzige möglichkeit die mir eingefallen ist, ist ein frame zu nehmen und nach dem klicken des ok buttons es auf zu invisible zu setzen.(kann man auch close mit frames nutzen?)

Wie bekomme ich es hin, dass das frame bis zur bestätigung im vordergrund bleibt, sodass am hauptfenster bis zur bestätigung nichts gemacht werden kann?

danke schonmal für eure hilfe
gruß alex

Moderiert von Christian S.: Topic aus Projekte (Open Source) verschoben am Mi 22.06.2005 um 18:43

ebs · Verfasst: Mi 22.06.05 17:37

Meinst du eine Inputbox?

onformcreate...

markieren

Delphi-Quelltext

1:
2:

var s: String;
S:= inputbox('Hallo!','Hier steht der Text!','Das steht drinnen!');

Moderiert von AXMD: Delphi-Tags hinzugefügt.

ALEXTHEGIANT · Hält's aus hier Beiträge: 5

danke das ist fast das was ich brauche allerdings: geht das auch irgendwie ohne abbrechen oder dass der bei abbrechen das gesamte programm beendet?

ebs · Verfasst: Mi 22.06.05 18:43

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

procedure TForm2.FormShow(Sender: TObject);

var s: String;
begin
If inputquery('Hallo!','Tip ein Text rein!',S) = false
then Form2.close;
end;

Musste du dann aber mit Formshow und inputquerry machen!

ALEXTHEGIANT · Hält's aus hier Beiträge: 5

danke nochmal hab da aber nochn kleines problem

wenn ich auf abbrechen klicke müsste er ja form schließen allerdings geht nur das eingabefenster weg und danach kommt trotzdem normal die form

ebs · Verfasst: Mi 22.06.05 19:16

Hier nocheinmal mit Form Create:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

procedure TForm1.FormCreate(Sender: TObject);
var s: String;
begin
If inputquery('Hallo!','Tip ein Text rein!',S) = false
then Halt;
end;

ALEXTHEGIANT · Hält's aus hier Beiträge: 5

jetzt klappt es riesengroßes dankeschön!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme