messagebox mit onclose??

[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;