Hallo,
wie bitte lassen sich in nachstehender Funktion die "normalen" Buttons durch farbige TEButtons ersetzen?
Delphi-Quellcode:
function MessageDlgPosC(const Msg: string; AType:
TMsgDlgType; EButtons:
TMsgDlgButtons; HelpCtx: Longint; X, Y: Integer): Word;
begin
with CreateMessageDialog(Msg, AType, EButtons) do begin
case AType of
mtWarning: Color := $0080FFFF;
mtError: Color := $007171FF;
mtInformation: Color := $00CAFFCA;
mtConfirmation: Color := $00FFB9B9;
mtCustom: Color := clBtnFace;
else Color := clBtnFace;
end;
Caption := 'Hinweis';
Left := X;
Top := Y;
Result := ShowModal;
end;
end;
Vielen Dank vorab für Hilfe!
Gruß
Lombi