TForm1 blockieren

galbe19 · Beiträge: 56

Hallo

Ich habe ein kleines Problem mit der Tform und zwar.
Ich habe eine Tform1 in dem ich ein Button habe zum loschen von einem Datensatz.
Wenn ich den drücke erscheint mit Tform 2 mit 2 Buttons einmal ‚OK’ und einmal ‚CANCEL’
Diese ist meine Button1click procedure von Tform1.

markieren

Delphi-Quelltext

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

procedure TForm1.Button1Click(Sender: TObject);
begin
form2.Show;
edit8.Text:=unit2.cancel; //eine variable damit ich weiss 
                          // ob ich OK oder Cancel gedrückt habe.
end;

meine Frage.
Wenn ich es so mache diese variable Unit2.cancel kommt mir erst beim zweiten druck von button4.
Wie kann ich es machen dass ich in der Tform1 nicht arbeiten kann wenn Tform2 angezeigt wird, aber die Tform1 soll auf dem Bildschirm bleiben.
Ich glaube ich muss irgendwie eine schleife einmachen damit wenn die Tform2 angezeigt wird nichts passiert.

Bitte un Hilfe

Mfg
Alex

Moderiert von matze: Delphi-Tags hinzugefügt

Narses · Verfasst: Mo 02.07.07 08:05

Moin!

Setz mal die Eigenschaft von Form2.ButtonOK.ModalResult auf mrOKund und Form2.ButtonCancel.ModalResultauf mrCancel, dann machst du:

markieren

Delphi-Quelltext

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

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (Form2.ShowModal = mrOK) then
    ShowMessage('OK')
  else
    ShowMessage('Cancel');
end;

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

passiv · Verfasst: Mo 02.07.07 10:15

oder du versuchst

markieren

Delphi-Quelltext

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

if application.MessageBox('Wollen Sie den Datensatz löschen?', //der Text der drinnen steht
    'Titel',                     //die caption der Titelleiste der Frage
    mb_okcancel                  //Buttons OK und Abbruch werden angezeigt...
    or mb_iconexclamation)       //... und das Icon mit dem Rufzeichen
    =IDOK                        //und er gibt dann eben einen Wert zurück, weils ne Funktion is
    then lösche Datensatz;

dann brauchst du nicht lange hin und her überlegen und hast eine fertig definierte (und funktionierende :roll:

) abfrage

_________________

Die Probleme, die es in der Welt gibt, sind nicht mit der gleichen Denkweise zu lösen, die sie erzeugt hat.
Albert Einstein

galbe19 · Beiträge: 56

ich verstehe das ganze aber es hilf mir nicht weiter
Wie kann ich Tform1 blockieren wenn tform2 erschein?
weil ich will mehr in der form 2 machen als nur OK oder CANCEL und als ich dass mache soll mir Tform1 blockiert sein.
und nur wenn ich OK oder Cancel drucke mir die 2 form verschwindet und Tform 1 wieder zum benutzen ist.

Narses · Verfasst: Mo 02.07.07 11:12

Moin!

galbe19 hat folgendes geschrieben:

ich verstehe das ganze aber es hilf mir nicht weiter

galbe19 hat folgendes geschrieben:

Wie kann ich Tform1 blockieren wenn tform2 erschein?

Narses hat folgendes geschrieben:

Setz mal die Eigenschaft von Form2.ButtonOK.ModalResult auf mrOKund und Form2.ButtonCancel.ModalResultauf mrCancel, dann machst du:

markieren

Delphi-Quelltext

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

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (Form2.ShowModal = mrOK) then
    ShowMessage('OK')
  else
    ShowMessage('Cancel');
end;

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme