MessageBox mit Icon in der Titelzeile

[Baeuerle]

Hallo,

wie bekomme ich bei einer MessageBox(0,PChar(e.Message),PChar('Titelzeile'),MB_OK or MB_ICONERROR); ein Icon in die TITELZEILE ???

Danke im vorraus

Baeuerle

P.S.: Muss doch über das Handle des Fensters gehen? Oder??

[Luckie]

Die Messagebox hat kein Icon in der Titelzeile. Man könnte zwar eins mit WM_SETICON reinsetzten, wird aber sehr umständlich, da du ständig pürfen musst, ob eine Messagebox von deinem Programm angezeigt wird. Eine Alternative wäre entweder der MesaageDlg aus der VCL oder ein eigene Form, die du modal anzeigst.

PS: Ansatt null übergib besser das Handle des aufrufenden fensters, sonst gehört die Messagebox zu keinem Fenster und sie kann im Hintergrund verschwinden.

[Baeuerle]

Icon wird jetzt gesetzt aber die Titelzeile wird überschreiben !!

anstatt "Fehler" wird nur "hler" angezeigt!!

Wo liegt der Fehler?

Delphi-Quellcode:

.
.
.
Timer1.Enabled:=true;
MessageBox(0,PChar(e.Message),PChar('Fehler'),MB_OK or MB_ICONERROR);
.
.
.

procedure TtfConfig.Timer1Timer(Sender: TObject);
var hndl: Integer;
begin
Timer1.Enabled:=False;
hndl:=FindWindow(nil,'Fehler');
if hndl<>0 then
 begin
 SetForegroundWindow(hndl);
 SendMessage(hndl,WM_SETICON,ICON_SMALL,Application.Icon.Handle);
 end;
end;

[Luckie]

Genau das meinte ich. Du hast jetzt ständig einen Timer laufen, nur um deine Messagebox mit einem Icon zu versehen. Das steht für mich in keinem Verhältnis.

[Baeuerle]

nein ist bei mir nur einmalig da das Program nach dieser Meldung beendet wird !

Application.terminate Aber sag mir doch bitte warum die Titelzeile jetzt nur noch "hler" heisst und nicht "Fehler" wie kann ich die Titelzeile mit einer Botschaft neu setzen???

Danke

[Baeuerle]

Habs gefunden danke

SendMessage(hndl,WM_SETTEXT,0,Integer(PChar('Fehler')));