Symbole in MessageBox

[Daniel B]

Zitat von Chakotay1308:

Versuche es mal mit IDHELP

Gleich zwei mal Falsch.

Man erhält nicht IDxxx, sondern den Wert.
Wurde z.B. Ja gedrückt, so erhält man 6!

Delphi-Quellcode:

if Application.MessageBox('Programm Beenden?', 'Tital', 36) = 6 then
begin
  Application.Terminate;
end;

Wenn also "Ja" gedrückt wurde, wird das Programm geschlossen.

Grüsse, Daniel

[nailor]

Hey! Dreimal D6 Personal, drei verschiedene Hilfen, oder wie

[CalganX]

@ Daniel: Ja, du erhälst zwar eine Zahl, aber IDxxx ist eine konstante und kann somit anstelle der Zahl genutzt werden!

Chris

[sakura]

@Daniel B: Was ist gegen diesen Schreibstil einzuwenden. Der ist doch viel leichter zu lesen, als deine Methode mit den festen Zahlenwerten

Delphi-Quellcode:

if Application.MessageBox('Programm Beenden?', 'Tital', MB_ICONQUSTION + MB_YESNO) = IDYES then
begin
  Application.Terminate;
end;

......

[Daniel B]

Zitat von Nailor:

Hey! Dreimal D6 Personal, drei verschiedene Hilfen, oder wie

Wie kommste den da drauf?
Ich hab nicht behauotet, das ich es aus der Hilfe habe.

Meine Hilfe sagt zu dem Suchbegriff Application.MessageBox:

Zitat:

StrLCopy Example
The following example uses an edit control and a button on a form. When the button is clicked, the first X bytes of the edit control are copied into a buffer, where X is a predefined number.

uses SysUtils;

const MAX_BUFFER = 10;
procedure TForm1.Button1Click(Sender TObject);
var
Buffer: array [0..MAX_BUFFER] of char;
begin
StrLCopy(Buffer, PChar(Edit1.Text), MAX_BUFFER);
Application.MessageBox(Buffer, 'StrLCopy Example', MB_OK);
end;

Zufrieden?

Grüsse, Daniel

[Daniel B]

Zitat von sakura:

@Daniel B: Was ist gegen diesen Schreibstil einzuwenden. Der ist doch viel leichter zu lesen, als deine Methode mit den festen Zahlenwerten

Nichts, die einen können sich besser Zahlen merken, die anderen eher Wörter, manche sind schreibfaul, manche nicht.
Jeder wie er möchte.
Ich möchte niemanden dazu zwingen, die Zahlen zu benutzen. Mit den Wörtern geht es natürlich auch. Ist nur mehr schreibaufwand.

[Daniel B]

Zitat von sakura:

Delphi-Quellcode:

if Application.MessageBox('Programm Beenden?', 'Tital', MB_ICONQUSTION + MB_YESNO) = IDYES then
begin
  Application.Terminate;
end;

<kleinigsei>Fokus setzen nicht vergessen! </kleinigsei>

[sakura]

Und warum schreibst Du dann folgendes?

Zitat von Daniel B:

Gleich zwei mal Falsch.

Man erhält nicht IDxxx, sondern den Wert.
Wurde z.B. Ja gedrückt, so erhält man 6!

Das ist ja komplett daneben. 6 entspricht doch IDYES.

......

P.S. Ich glaube Dir gerne, dass Du Dir die Werte für die Messagebox merken kannst, aber glaube mir auch, die Konstantennamen zu nutzen ist ein großer Vorteil und wird in den meisten Firmen von den Entwicklern auch verlangt. In unserer Anwendung existieren über 3.700 Konstanten, die könnte sich keiner merken. Die Namen sind viel aussagekräftiger.

[sakura]

Zitat von Daniel B:

<kleinigsei>Fokus setzen nicht vergessen! </kleinigsei>

Wieso, hast Du doch auch nicht
MB_ICONQUESTION + MB_YESNO = 36
IDYES = 6
Exact Deine Werte!

[Daniel B]

Zitat von sakura:

Und warum schreibst Du dann folgendes?

Zitat von Daniel B:

Gleich zwei mal Falsch.

Man erhält nicht IDxxx, sondern den Wert.
Wurde z.B. Ja gedrückt, so erhält man 6!

Das ist ja komplett daneben. 6 entspricht doch IDYES.

Schon Klar, der RÜckgabewert ist 6 / IDYES, aber auf dem Button steht Ja.