Farbe von showmessage ändern

[shmia]

Mit der Verwendung von CreateMessageDialog lässt sich viel einiges aus der VCL wiederverwenden:

Delphi-Quellcode:

function MessageDlgPosHelpWithColor(const Msg: string; DlgType: TMsgDlgType;
  Buttons: TMsgDlgButtons; HelpCtx: Longint; X, Y: Integer;
  const HelpFileName: string; DlgColor:TColor): Integer;
begin
  with CreateMessageDialog(Msg, DlgType, Buttons) do
    try
      Color := DlgColor;
      HelpContext := HelpCtx;
      HelpFile := HelpFileName;
      if X >= 0 then Left := X;
      if Y >= 0 then Top := Y;
      if (Y < 0) and (X < 0) then Position := poScreenCenter;
      Result := ShowModal;
    finally
      Free;
    end;
end;