TFileNameEdit per Hotkey öffnen?

[schorsch]

Moin,
hat da jemand vielleicht ne Idee? "execute" gibt's da leider nicht.

Tks and happy new year

de Schorsch

[Michl]

Eine Variante wäre das Ableiten eines eigenen TFileNameEdites (in der Form-Unit, wo per IDE das TFileNameEdites abgelegt wurde), den Button sichtbar machen und dann z.B. mittels TAction:

Code: Alles auswählen

type
 
  TFileNameEdit = class(EditBtn.TFileNameEdit)
  public
    property Button;
  end;
 
  TForm1 = class(TForm)
    Action1: TAction;
    ActionList1: TActionList;
    FileNameEdit1: TFileNameEdit;
    procedure Action1Execute(Sender: TObject);
  end;
...
procedure TForm1.Action1Execute(Sender: TObject);
begin
  FileNameEdit1.Button.Click;
end;

[schorsch]

hmm, bin nicht so der action-fan. gibt es da nix eleganteres - ansonsten auch nicht so schlimm, dann muss man halt zur maus greifen

tks..

[wp_xyz]

hmm, bin nicht so der action-fan. gibt es da nix eleganteres

Was? Wenn du dir einmal die Zeit genommen hast, dich in Actions einzuarbeiten, wirst du nie mehr Click-Prozeduren für Toolbuttons and MenuItems verwenden. Siehe z.B. https://www.delphi-treff.de/tutorials/v ... verwenden/

[Michl]

hmm, bin nicht so der action-fan. gibt es da nix

Ich mag zwar auch lieber TActions, aber mittels MainForm.KeyPreview = True geht bedingt auch sowas (mit <Strg> + <O> wird jetzt der Dialog geöffnet):

Code: Alles auswählen

uses ..., LCLType;
 
type
 
  TFileNameEdit = class(EditBtn.TFileNameEdit)
  public
    property Button;
  end;
 
  TForm1 = class(TForm)
    FileNameEdit1: TFileNameEdit;
    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  end;
...
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if ssCtrl in Shift then
    case Key of
      VK_O: FileNameEdit1.Button.Click;
    end;
end;