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

Hi Delphi Star,

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

Greetz
alcaeus

File->New->Form

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

zusammenfalten · markieren

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;