Текущий архив: 2006.03.05;
Скачать: CL | DM;

Вниз

Создание ShortCut в run-time   Найти похожие ветки 

← →
Ega23 ©   (2006-01-30 14:41) [0]

Коллеги, подскажите следующую вещь:
В ран-тайме создаётся некоторая форма с неким количеством контролов, причём не экземпляр конкретной формы, а именно форма со всеми контролами, типа

aForm:=TForm.Create;
With TButton.Create(aForm) do
.....
With TEdit.Create(aForm) do
....


Требуется также создать несколько ShortCut-ов и навесить на них обработчики. По неизвестным мне причинам, ActionList не хотят использовать.

Вопрос: как создать ShortCut в ран-тайме и прицепить к нему обработчик?

---

← →
Alarm ©   (2006-01-30 14:44) [1]

Поясни несколько ShortCut-ов , в принципе сколько необходимо, столько и создавай. В чем проблема?

---

← →
Ega23 ©   (2006-01-30 14:48) [2]

> в принципе сколько необходимо, столько и создавай. В чем
> проблема?


Как их создавать?
Вот, допустим у меня есть следующее:


 TForm1 = class(TForm)
   Button1: TButton;
   Edit1: TEdit;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
 ShowMessage(Edit1.Text);
end;



Хочу этот же обработчик вызывать по нажатию Alt+F1

Что мне для этого требуется сделать (без привлечения механизма Actions)

---

← →
Vlad ©   (2006-01-30 15:08) [3]

> Ega23 ©   (30.01.06 14:48) [2]



> По неизвестным мне причинам, ActionList не хотят использовать.


а TApplicationEvents использовать можно? :-)

---

← →
Ega23 ©   (2006-01-30 15:20) [4]

> а TApplicationEvents использовать можно? :-)


Точно!!!

TApplication.OnShortCut есть.

Всё, всем спасибо! Решение найдено.

---

Страницы: 1 вся ветка

Текущий архив: 2006.03.05;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.071 c