Hallo bitsetter
vielen Dank für diesen Tip.
Ich habe vergessen, zu erwähnen, daß ich eine Komponente aus den freien LMD-Tools benutze, dort kann ich den MessageDLg
einfärben.
In Deinem Tip wird, wenn ich nicht falsch liege eine Eigener MessageDlg erzeugt.
Da ich nicht weiß, wie man einen MessageDLg einfärbt, habe ich auf diese Komponente zurückgegriffen.
Wie gehe ich nun dieses Problem an ?
Hier der Quellcode
Delphi-Quellcode:
IF lmdMessage.Execute('Unquittierte Datensätze gefunden !',' ACHTUNG !!! Es wurden noch '+
'unquittierte Datensätze gefunden !'+#13#10+
' Diese sind älter als zwei Stunden und sollten schnellstmöglich quittiert'+#13#10+
' werden ! Diese Meldung erscheint alle '+IntToStr( dZyklus div 60000 ) +' min'+#10#13#10#13+
' Unten in der Fusszeile sehen Sie im gelben Balken einen weiteren Hinweis hierzu !'
,[0], [],-1,-1,-1,-1,0) = mrOK then begin
sTEXT := 'MELDUNG an : '+dUSER+' über unquittierte Datensätze : Anz.: '+ inttostr(Anzahl)+' Sätze !';
writelog;
tZyklus.Enabled := true;
end;
mfg
nachtstreuner60