question about browse folder

مغلق

بدأه essam7 في 8 مارس 2005 · 3 رد · 582 مشاهدة · في لغة Delphi

#18 مارس 2005 في 00:28 صاحب الموضوع

مرحبا شباب

رجاء لا تطولو بالاجابة

سؤالي كيف ممكن أعمل browse folder dialog مثل الذي بالصورة هل في دلفي مثله جاهز؟ واذا كان لا فبما أنه مستعمل من قبل ويندوز فهل تتكرمون علي بكود الـ API له

أحاول قدر المستطاع عدم استخدام كومبوننت خارجي لكن ان لم أجد الحل الرجاء دلوني على كومبوننت مجاني

أنا عندي صفحة من النت عن شيئ شبيه بذلك لكن الكود طويييييييييييييل

ولكم الشكر

#28 مارس 2005 في 06:16

هذه موجودة في دلفي، الكلام التالي من مساعدة دلفي للامر SelectDirectory

Brings up a dialog to allow the user to enter a directory name.

Unit

FileCtrl

Category

dialog and message routines

function SelectDirectory(const Caption: string; const Root: WideString; out Directory: string): Boolean; overload;
function SelectDirectory(var Directory: string; Options: TSelectDirOpts; HelpCtx: Longint): Boolean; overload;

uses FileCtrl;

const
  SELDIRHELP = 1000;
procedure TForm1.Button1Click(Sender: TObject);
var
  Dir: string;
begin
  Dir := 'C:\MYDIR';
  if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then
    Label1.Caption := Dir;
end;

تم تعديل هذه المشاركة بواسطة وحيد_الساير في 8 مارس 2005 في 06:17

عندما تريد أن تتعلم جافا بالفيديو إليك قنوات الYouTube الخاصة بقسم الحاسب الآلي

أ. فاضل خداده

أ. عبدالعزيز الرومي

أ. وحيد الساير

(وَمَا أُوتِيتُمْ مِنْ الْعِلْمِ إِلاَّ قَلِيلاً) [سورة الإسراء: الآية 85]