Thema: Delphi Eigener OpenDialog

Einzelnen Beitrag anzeigen

Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#3

Re: Eigener OpenDialog

  Alt 15. Nov 2004, 19:34
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;
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat