События для компонентов, созданных во

Delphi 1

События для компонентов, созданных во время работы программы II Вот простейший код для нового проекта с одной кнопкой и меню. (Надеюсь, в этом ничего сложного нет ... :)

{Процедура создания нового пункта меню ...}
procedure TForm1.Button1Click(Sender: TObject);
var
NewItem: TMenuItem; begin
NewItem := TMenuItem.Create(Form1); NewItem.Caption := 'Динамический элемент ...'; NewItem.OnClick := xyz; MainMenu1.Items.Insert(0, NewItem); <- Примечание: рекомендую бегло ознакомиться end; с Delphi-примером для команды Insert ...
{Любая старая 'xyz'-процедура (в настоящее время может быть определена одна,
например, Form1.DblClick)}
procedure TForm1.xyz(Sender: TObject);
begin
showmessage('Запусти эту процедуру !!'); end;

Примечание: Если вы пользуетесь неопределенной процедурой, вам понадобиться объявить ее. Лично я все это сделал в "верхнем правом углу" объявления типа формы, примерно так:

private { Private declarations } public { Public declarations } procedure xyz(Sender: TObject); <- К этой процедуре могут иметь доступ не только события Form1 ...

Установите свойство обработчика события (например, OnClick, OnDblClick, OnMouseDown и пр.) на процедуру, которую вы создали для обработки этого события. Вам нужно убедиться в том, что параметры в точности соответствуют параметрам ожидаемого заданного обработчика события.

Например:

MySpeedButton.OnClick := MyClickEventHandler;

где...

procedure MyClickEventHandler(Sender: TObject);
begin

end;

[001515]

Содержание Назад Вперед

Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий