استفاده از opendialog برای انتخاب folder

کد زیر به جای انتخاب فایل در OpenDialog، انتخاب مسیر را نشان میدهد 

var

  OpenDialog: TFileOpenDialog;

  SelectedFolder: string;

begin

OpenDialog := TFileOpenDialog.Create(nil);

try

  OpenDialog.Options := OpenDialog.Options + [fdoPickFolders];

  if not OpenDialog.Execute then

    Abort;

  SelectedFolder := OpenDialog.FileName;

finally

  OpenDialog.Free;

end;

با استفاده از کد زیر نیز میتوان نام فایل را از مسیر جدا کرد 

program ProjectExtractPathDemo;

{$APPTYPE CONSOLE}

uses

  SysUtils;

var

    Path : string ;

begin

  Path:='C:\Program Files\Borland';

  Writeln(ExtractFileName(Path));//return Borland

  Path:='C:\Program Files\Borland\';

  Writeln(ExtractFileName(Path));//return ''

  Path:='C:\Program Files\Borland\';

  Writeln(ExtractFileName(ExcludeTrailingPathDelimiter(Path)));//return Borland

  Readln;

end.

یا :

uses SysUtils;

Delete(Path, 1, LastDelimiter('\', Path));

SetFocus بر روی RadioGroup1 در دلفی

اگر روی RadioGroup  بخواهیم فاکوس کنیم میتوانیم از کد زیر استفاده نماییم :

 (RadioGroup1.Controls[0] as TRadioButton).SetFocus;

on click در dbgrid دلفی

شاید برای شما هم اتفاق افتاده باشه که نیاز به کلیک در dbgrid داشته باشید به عنوان مثال در داخل dbgrid چک باکس دارید و میخواهید با کلیک روی ان انتخاب شود . در این صورت از کد زیر میتونید استفاده کنید :

procedure DbGridCellClick(Column: TColumnEh);

begin

  if DbGrid.SelectedField.DataType=ftBoolean then

    //  statement

end;