![]() |
Messagebox mit farbigen TEButtons ...
Hallo,
wie bitte lassen sich in nachstehender Funktion die "normalen" Buttons durch farbige TEButtons ersetzen?
Delphi-Quellcode:
Vielen Dank vorab für Hilfe!
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; Gruß Lombi |
AW: Messagebox mit farbigen TEButtons ...
Gar nicht. Wenn dann musst du schon die CreateMessageDialog anschauen wo wirklich das Formular zusammengebaut wird.
|
AW: Messagebox mit farbigen TEButtons ...
Habe den Dialog nun mit einer eigenen Form realisert.
Jetzt würde mich noch interessieren, wie ich ein "MB_ICONQUESTION" usw. auf die Form bringe. |
AW: Messagebox mit farbigen TEButtons ...
Hallo,
am Besten ist wirklich "CreateMessageDialog" zu verwenden. Aus diesem ![]()
Delphi-Quellcode:
Aufruf über:
function SpecialMessageDlg(const ACaption: string; const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; ButtonColor: TColor; HelpCtx: Longint): Integer;
var i: Integer; btn: TButton; begin with CreateMessageDialog(Msg, DlgType, Buttons) do try Caption := ACaption; HelpContext := HelpCtx; for i := 0 to ComponentCount - 1 do begin if (Components[i] is TButton) then begin btn := TButton(Components[i]); btn.Color := ButtonColor; end; end; Result := ShowModal; finally Free; end; end;
Delphi-Quellcode:
If SpecialMessageDlg('Überschrift', 'Ist das eine Frage?', mtConfirmation, mbYesNoCancel, clRed, 0) = mrYes then
ShowMessage('Ja, das war eine Frage'); |
AW: Messagebox mit farbigen TEButtons ...
Hallo Helmi,
bei deiner Funktion meckert mein Progi, dass auf ein protected-Symbol TControl.Color nicht zugegriffen werden kann! Lassen sich vielleicht die TEButtons doch noch verwenden? |
AW: Messagebox mit farbigen TEButtons ...
Zitat:
Sorry |
AW: Messagebox mit farbigen TEButtons ...
Muß ich mich also mit meiner Dialogform ohne Icons begnügen?
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 20:02 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz