Erst andere Form durchlaufen

Ice · Beiträge: 114

Hallo Leute,

ich habe folgendes Problem: mein code soll bis zu einer Stelle laufen an der eine andere Form angezeigt wird, dort soll er dann auf eine Eingabe auf dieser form warten und erst dann weiterlaufen.

Gibt es da schon eine fertige Funktion wie z.b. bei Message dialog die Abfrage des mbOK oder müsste ich mir da selber was schreiben??

Dankeschön im voraus,

mfg
Ice

toms · Beiträge: 1099 Erhaltene Danke: 2

Das Zauberwort heisst ShowModal:

markieren

Quelltext

1:	Form2.ShowModal;

Ice · Beiträge: 114

Tjua manchmal sind es die einfachsten Dinge.....
Vielen Dank!

mfg
Ice

Popov · Verfasst: Mi 12.03.03 16:10

Wenn du nur ein String eingeben willst, dann gibts da auch

InputBox

und

InputQuery

_________________
Popov

Ice · Beiträge: 114

@ Popov :Ne leider nicht,aber vielen Dank für den Tip!

mfg
Ice

Böser Borstel · Beiträge: 154

Am schönsten sieht es immer auch wenn alle denken du benutzt ein Formular für alles

z.B. zum Starten einer zweiten Form

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm2.FormShow(Sender: TObject);
begin
   with Form2 do
   begin
      Width := Form1.Width;
      Height := Form1.Height;
      Left := Form1.Left;
      Top := Form.Top;
   end;
   Form1.Visible := FALSE;
end;

z.B. zum Beenden des zweiten Forms

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm2.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
   with Form1 do
   begin
      Width := TForm2.Width;
      Height := TForm2.Height;
      Left := TForm2.Left;
      Top := TForm2.Top;
      Visible := TRUE;
   end;
end;

Moderiert von Tino: Code-Tags hinzugefügt.

Popov · Verfasst: Do 13.03.03 12:39

@Böser Borstel

Ist zwar keine Katastrophe, aber mit Code-Tags ist so ein Code viel besser lesbar. Bei Code-Tags bleibt die Struktur des Codes erhalten. Man kann sowas auch nachträglich hinzufügen.

_________________
Popov

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme