Текущий архив: 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.038 c
