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;