messagebox mit onclose??

[zeina]

Hallo,
ich habe eine Frage :

Delphi-Quellcode:

procedure TOSMap.FormActivate(Sender: TObject);
begin
if not( WebOSMaps1.Visible)then
 if MessageBox(0,'Es ist etwas Falsch geschrieben. Bitte Prüfen Sie die Adresse Richtig über',
     'project', MB_OK or MB_ICONERROR)= MB_OK then  begin

  close;
  end;
end;

warum reagiert es nicht mit (close)?
wie kann ich mit MessageBox mein From close!!!!

[Der schöne Günther]

Putting a Close() directly in the OnActivate event of a form sounds adventurous.

What is the point of a form when you have no chance of using it? Consider moving this to a different event.

[zeina]

Zitat von Der schöne Günther:

Putting a Close() directly in the OnActivate event of a form sounds adventurous.

What is the point of a form when you have no chance of using it? Consider moving this to a different event.

mein Ziel ist,wenn ich auf (ok) Button von MessageBox clicke,Die Form close??

[Jasocul]

The event will work right if you compare the correct result:

Delphi-Quellcode:

procedure TOSMap.FormActivate(Sender: TObject);
begin
if not( WebOSMaps1.Visible)then
 if MessageBox(0,'Es ist etwas Falsch geschrieben. Bitte Prüfen Sie die Adresse Richtig über',
     'project', MB_OK or MB_ICONERROR)= mrOK then begin // MB_OK <> mrOK

  close;
  end;
end;

[zeina]

Zitat von Jasocul:

The event will work right if you compare the correct result:

Delphi-Quellcode:

procedure TOSMap.FormActivate(Sender: TObject);
begin
if not( WebOSMaps1.Visible)then
 if MessageBox(0,'Es ist etwas Falsch geschrieben. Bitte Prüfen Sie die Adresse Richtig über',
     'AIDA', MB_OK or MB_ICONERROR)= MB_OK then  begin

  close;
  end;

was meinst du mit(you compare the correct result)???

auch funktioniert es nicht

[Delphi.Narium]

Zitat von zeina:

Zitat von Der schöne Günther:

Putting a Close() directly in the OnActivate event of a form sounds adventurous.

What is the point of a form when you have no chance of using it? Consider moving this to a different event.

mein Ziel ist,wenn ich auf (ok) Button von MessageBox clicke,Die Form close??

Mal den Debugger befragt, ob die entsprechende Bedingung je erfüllt ist?

Ansonsten mal in die Hilfe schauen, welche Rückgabewerte von MessageBox beim Klick auf bestimmte Buttons geliefert wird.

[Jasocul]

Look for the changes.
Your source:

Delphi-Quellcode:

procedure TOSMap.FormActivate(Sender: TObject);
begin
if not( WebOSMaps1.Visible)then
 if MessageBox(0,'Es ist etwas Falsch geschrieben. Bitte Prüfen Sie die Adresse Richtig über',
     'project', MB_OK or MB_ICONERROR)= MB_OK then begin // this line is wrong

  close;
  end;
end;

my source:

Delphi-Quellcode:

procedure TOSMap.FormActivate(Sender: TObject);
begin
if not( WebOSMaps1.Visible)then
 if MessageBox(0,'Es ist etwas Falsch geschrieben. Bitte Prüfen Sie die Adresse Richtig über',
     'project', MB_OK or MB_ICONERROR)= mrOK then begin // This line is changed

  close;
  end;
end;

The result of the MessageBox is not MB_OK. You have to compare to mrOK.

[Sherlock]

Männers? Deutsche DP?

Sherlock

[Der schöne Günther]

Ich dachte vielleicht haben wir nicht nur in Sachen Delphi, sondern auch in Sachen Deutsch eine Sprachbarriere... 😏

[zeina]

Zitat von Delphi.Narium:

Zitat von zeina:

Zitat von Der schöne Günther:

Putting a Close() directly in the OnActivate event of a form sounds adventurous.

What is the point of a form when you have no chance of using it? Consider moving this to a different event.

mein Ziel ist,wenn ich auf (ok) Button von MessageBox clicke,Die Form close??

Mal den Debugger befragt, ob die entsprechende Bedingung je erfüllt ist?

Ansonsten mal in die Hilfe schauen, welche Rückgabewerte von MessageBox beim Klick auf bestimmte Buttons geliefert wird.

ich habe mal den Debugger befragt.Die Alle bedingung ist erfült,aber trotzdem ist die form nicht (close).Es sei denn,dass man auf (x)close klickt