Eigener OpenDialog

[Delphi Star]

Wie kann man sich seinen eigenen OpenDialog machen?
Am besten wer ein Beispiel.

[alcaeus]

Hi Delphi Star,

meinst du wie du den TOpenDialog verwenden kannst oder wie du einen neuen programmierst?

Greetz
alcaeus

[SirThornberry]

File->New->Form

und dann das Form bestücken.
dem neuen Form noch die gewünschten properties etc. geben und fertig.

Delphi-Quellcode:

//zum aufrufen des Dialogs
function TMyOpenDialog.Execute: Boolean;
begin
  result := showModal = mrOK;
end;

//OK bzw. Öffnen-Button des Dialogs
procedure TMyOpenDialog.BtnOKClick(Sender: TObject);
begin
  //Do Something;
  modalResult := mrOK;
end;

//Abbrechen-Button des Dialogs
procedure TMyOpenDialog.BtnCancelClick(Sender: TObject);
begin
  //Do Something;
  modalResult := mrCancel;
end;