Zu doof für Delphi-Beispiel aus Hilfe. MessageBox

[Mamphil]

Hi!

Ich habe in der Hilfe zu Delphi 7 folgendes Beispiel gefunden:

Delphi-Quellcode:

Begin

  with Application do
  begin
    NormalizeTopMosts;
    MessageBox('This should be on top.', 'Look', [smbOK]);
    RestoreTopMosts;
  end;
end;

Beim Ausprobieren kommt die für mich unverständliche Meldung "Undefinierter Bezeichner 'smbOK'".

Über Abhilfe würde ich mich freuen!

Danke,
Mamphil

PS: Wieso stehen in der Delphi-Hilfe Beispiel drin, die so nicht funktionieren?

[MasterC]

MessageDlg('Text', mtInformation, [mbOK], 0); So muss es sein.

Oder so:

MessageBox(0, 'Bla', 'Title', MB_OK);

[jfheins]

MessageBox(Form1.Handle, 'This should be on top.', 'Look', [mbOK]) Und: Jeder kann Fehler machen, auch die bei Borland ....

[Mamphil]

Hi!

Zitat von jfheins:

Und: Jeder kann Fehler machen, auch die bei Borland ....

Danke für eure Hilfe - jeder darf Fehler machen - die Einstellung gefällt mir (besonders für die offizielle Dokumentation )

Nochmal: Vielen Dank!

Mamphil

[Luckie]

Zitat von jfheins:

MessageBox(Form1.Handle, 'This should be on top.', 'Look', [mbOK]) Und: Jeder kann Fehler machen, auch die bei Borland ....

Wo ist da ein Fehler? Die Messagebox kommt von Windows und sie erwartet als ersten Parameter das Handle des Parent-Fensters und als letzten eine nummerische Konstante für die Buttons und das Icon. Der Fehler liegt hier eindeutig beim Programmierer, der eine API Funktion falsch aufgerufen hat bzw. es versucht hat.

Und [mbOK] bei der API Messagebox als Flag im letzten Parameter anzugeben halte ich nicht für glücklich. Mag zwar in diesem Fall funktioniere, aber... Der Parameter besteht aus logischen or-Verknüpfungen von nummerishcen Konstanten:
MB_OK or MB_ICONINFORMATION zeigt einen OK-Button und eine Info-Icon an. Näheres zu den Konstanten hier: messagebox.
[mbOK] scheint in diesem fall zufälligerweise 0 zu ergeben, was MB_OK entspricht.

[fkerber]

Hi!

Zitat von Luckie:

Wo ist da ein Fehler?

Ich denke mal, der Fehler war hier:

Delphi-Quellcode:

Begin 

  with Application do 
  begin 
    NormalizeTopMosts; 
    MessageBox('This should be on top.', 'Look', [smbOK]); 
    RestoreTopMosts; 
  end; 
end;

Da iss doch ein s zuviel bei mbOk, oder?


Ciao Frederic