Delphi-PRAXiS - Einzelnen Beitrag anzeigen

**smart**

Was hältst Du hiervon?

Delphi-Quellcode:

			Uses FileCtrl;

const SELDIRHELP = 1000;

.....

procedure TForm1.Button1Click(Sender: TObject);

var

  D: string;

begin

  if SelectDirectory(D, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then

    Button1.Caption := D;

end;

Heike.

smart Registriert seit: 19. Dez 2004 Ort: Bochum 1.266 Beiträge Delphi 2007 Professional	#10 Re: Ordner öffnen Dialog 7. Jul 2005, 21:02 Was hältst Du hiervon? markieren Delphi-Quellcode: Uses FileCtrl; const SELDIRHELP = 1000; ..... procedure TForm1.Button1Click(Sender: TObject); var D: string; begin if SelectDirectory(D, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then Button1.Caption := D; end; Heike. Heike Kretschmann
	Zitat

Einzelnen Beitrag anzeigen

Re: Ordner öffnen Dialog