interface
uses
...EditBtn...
type
{ TForm1 }
TForm1 = class(TForm)
...
procedure MyFileNameEditKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
...
end;
{ TFileNameEditHelper }
TFileNameEditHelper = class helper for TFileNameEdit
public
procedure ShowDialog;
end;
implementation
...
{ TForm1 }
procedure TForm1.MyFileNameEditKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key = VK_RETURN) and (Shift = [ssCtrl]) then
(Sender as TFileNameEdit).ShowDialog;
end;
...
{ TFileNameEditHelper }
procedure TFileNameEditHelper.ShowDialog;
begin
RunDialog;
end;
....