Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  AW: messagebox mit onclose??

   
    by Jasocul, 9. Mai 2019
  Look for the changes.
  Your source:
  
  
  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
• Forum: Sonstige Fragen zu Delphi

  AW: messagebox mit onclose??

   
    by Jasocul, 9. Mai 2019
  The event will work right if you compare the correct result:
  
  
  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;