Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.034 c
2-1139679073
Bogdan1024
2006-02-11 20:31
2006.03.05
как обратиться к пи_си-спикеру?


2-1140178684
The Sound
2006-02-17 15:18
2006.03.05
Выход из loop a? (Или просто округление).


15-1139584213
ZeFiR
2006-02-10 18:10
2006.03.05
rtl70.bpl


10-1113539192
JekSoft
2005-04-15 08:26
2006.03.05
Объект OLE/ActiveX для MS Office


15-1139229226
REA
2006-02-06 15:33
2006.03.05
Дефрагментатор