Custom MessageDlg

[qb-tim]

Hi,

geht es, dass mann mit MessageDlg(...) die Anzahl und Caption der Knöpfe selbst bestimmt? Wenn, dann wie?

[bitsetter]

Hi,

du kannst ja mal in den Tutorial reinschauen. Die Anzahl der Button kannst du zum Teil selbst bestimmen.

[qb-tim]

Das Hilft mir aber nicht weiter... Ich möchte z.B. "Knopf 1", "Knopf 2" und "Knopf 3" als Captions selbst bestimmen.

[SirThornberry]

dann musst du dir den dialog selbst bauen wenn das beschriebene aus dem tutorial dir nicht genügt.

[DeddyH]

Oder bei Torry nachsehen

[Bernhard Geyer]

Elpack oder ab Vista den Taskdialog entsprechend verwenden.

[bitsetter]

Zitat von qb-tim:

Das Hilft mir aber nicht weiter... Ich möchte z.B. "Knopf 1", "Knopf 2" und "Knopf 3" als Captions selbst bestimmen.

Hi,

das könnte man ansonsten noch anders machen:

Delphi-Quellcode:

function MessageDlgEx(const MsgCaption, Msg: String; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer;
var
  i: Integer;
begin
  with CreateMessageDialog(Msg, DlgType, Buttons) do
  try
    Caption := MsgCaption;
    HelpContext := HelpCtx;
    for  i := 0 to Pred(ComponentCount) do
    begin
      if Components[i] is TButton then
      begin
        if TButton(Components[i]).Name= 'Yes' then
          TButton(Components[i]).Caption:= 'Knopf 1';
        if TButton(Components[i]).Name= 'No' then
          TButton(Components[i]).Caption:= 'Knopf 2';
        if TButton(Components[i]).Name= 'Cancel' then
          TButton(Components[i]).Caption:= 'Knopf 3';
      end;
    end;
    Result := ShowModal;
  finally
    Free;
  end;
End;

procedure TForm1.Button1Click(Sender: TObject);
begin
 if MessageDlgEx('Information 1', 'Knopf 1?', mtConfirmation, mbYesNoCancel, 0) = mrYes then
   ShowMessage('Knopf 1');
end;

[Ghostwalker]

Gugg dir mal das Teil an:

http://www.jed-software.com/jsd.htm

Ist frei für den privaten Gebrauch, und kann sehr viel (Mehr noch als der Taskdialog von Vista).