Default Delphi-Icon in MessageBox/MessageDLG entfernen

[Whistler]

Guten Abend,

ich stelle gerade fest, dass bei einer einfachen MessageBox bzw. MessageDLG als Icon in der Taskleiste das default Delphi-Icon verwendet wird.
In einer vorherigen Anwendung, war hier aber das für die Anwendung eingestellte Icon zu sehen.

Ich wüsste zur Zeit nichts, was ich bei der neuen Anwendung anders gemacht haben sollte. Hat jemand evtl. eine(n) Tipp/Idee?

[Luckie]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Messagebox(Handle, 'hja', 'klajsdh', MB_ICONSTOP);
end;

Mit Angabe des Handles kein Button in der Taskleiste und mit 0 als Handle Button ohne Symbol in der Taskleiste.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Application.Messagebox('hja', 'klajsdh', MB_ICONSTOP);
end;

Kein Button und somit auch kein Handle.

[scp]

Hmmm... ich habe gerade ein leeres Projekt mit einem Button, einem eigenen Icon und einer MessageBox mit Handle 0 in Delphi 7 PE angelegt.
Wenn ich das kompiliere und vom Explorer aus die .exe starte, bekommt die MessageBox trotzdem ein Standard-Delphi-Icon in der Taskleiste. In den Resourcen der .exe ist dies aber nicht zu finden.
Wie geht das denn?

[Luckie]

Steht das Icon eventuell binär in der dfm-Datei? Wo anders kann es ja kuaum herkommen, wenn es in der Ressource (res-Datei) nicht ist.

[scp]

Das ist ja der Witz: Ich habe sowohl das Icon der Form als auch das Anwendungs-Icon (Projekt->Optionen->Anwendung) geändert, trotzdem kommt noch das D7-Icon irgendwoher. Vielleicht im Icon Cache?

[Luckie]

Was hast du benutzt? MessageDlg oder ShowMessage oder Messagebox oder Application.Messagebox?

[scp]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  MessageBox(0, 'huhu', 'info', 0);
end;

[Luckie]

Kompilierte Exe (D6 Personal) aus dem Explorer gestartet: Button in der Taskleiste ohne Icon.

[Whistler]

Und wie soll das bei "MessageDLG" anzuwenden sein? Aktuelle verwende ich bei der "Beenden-Prozedur" folgenden Code:

Code:

if (MessageBox(0, 'Wirklich beenden?', 'Beenden?', MB_ICONQUESTION or MB_YESNO or MB_SETFOREGROUND or MB_TASKMODAL) = idYes) then frmMain.close;

[Luckie]

Zitat von Whissi:

Und wie soll das bei "MessageDLG" anzuwenden sein?

Was meinst du damit?

Und warum gibst du bei deinem Code kein Handle an, sondern übergibst null?