| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Создание ShortCut в run-time

Ega23 ©   (2006-01-30 14:41:00) 

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

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


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

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

---

Ega23   (2006-01-30 15:20:00) [1]

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


Точно!!!

TApplication.OnShortCut есть.

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

---

Vlad   (2006-01-30 15:08:00) [2]

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



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


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

---

Ega23   (2006-01-30 14:48:00) [3]

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


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


 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)

---

Alarm   (2006-01-30 14:44:00) [4]

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

---

Наверх