Hallo,

Ich will wenn man auf einen Button klick das sich ein Fenster öffnet so wie showmessage('blabla') und das unten aber stadt den button ok zwei button sind, Drucken und Zurück. Und das dann jeweils bestimmte ereignisse ausgelöst werden wenn man auf einen dieser zwei buttons drückt, wie setzt ich sowas am einfachsten um??? ich wüßte das nur wenn ich eine zweite form einbaue, aber es geht sicher leichter..... oder?

bin dankbar für jede hilfe!

Hi,

Schau mal hier.

hi,

danke hat mir sehr weiter geholfen,


ferby

PS: Musst noch den Kommentar zum Code lesen.

Hi

ich habe jetzt den code:

zusammenfalten · markieren

Delphi-Quellcode:

function abfrage(const Msg: string; DlgType: TMsgDlgType;
  Buttons: TMsgDlgButtons; Captions: array of string): Integer;
var
  aMsgDlg: TForm;
  i: Integer;
  dlgButton: TButton;
  CaptionIndex: Integer;
begin
  aMsgDlg := CreateMessageDialog(Msg, DlgType, Buttons);
  captionIndex := 0;
  for i := 0 to aMsgDlg.ComponentCount - 1 do
  begin
    if (aMsgDlg.Components[i] is TButton) then
    begin
      dlgButton := TButton(aMsgDlg.Components[i]);
      if CaptionIndex > High(Captions) then Break;
      dlgButton.Caption := Captions[CaptionIndex];
      Inc(CaptionIndex);
    end;
  end;
  Result := aMsgDlg.ShowModal;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if abfrage('Druckervorschau:' + #10 + 'balbal', mtConfirmation, mbOKCancel,
    ['Drucken', 'Abrechen']) = mrOk then
    ShowMessage('"1" clicked')
  else
    ShowMessage('"2" clicked');
end;

nur ist da jetzt beim ersten 'popup' fenster links ein fragezeichen, das will ich nicht da haben, wie bekomme ich das weg?
danke,

ferby

Ersetze mtConfirmation durch mtCustom!

Hi,

danke!