Einzelnen Beitrag anzeigen

Benutzerbild von sirius
sirius

Registriert seit: 3. Jan 2007
Ort: Dresden
3.443 Beiträge
 
Delphi 7 Enterprise
 
#3

AW: MessageBox/Dlg per Programm schließen

  Alt 10. Mär 2014, 18:58
Nimm CreateMessageDialog. Damit bekommst Du das fertige Fenste rund kannst jetzt selbst entscheiden, was du damit anstellen willst. Im Normalfall nur das:
Delphi-Quellcode:
FDlg:TForm;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Fdlg:=CreateMessageDialog('test',mtInformation,[mbYes,mbNo]);
  try
    Fdlg.showmodal;
  finally
    freeandnil(Fdlg);
  end;
end;
Und über FDlg hast du jetzt Zugriff auf die Form und kannst sie schließen (z.B.: Fdlg.Modalresult:=mrCancel).
Dieser Beitrag ist für Jugendliche unter 18 Jahren nicht geeignet.
  Mit Zitat antworten Zitat