Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.10.02;
Скачать: [xml.tar.bz2];

Вниз

присвоение функции по OnClick в реальном времени.   Найти похожие ветки 

 
Yozch1   (2003-09-19 18:33) [0]

Создаю пункт меню. Есть готовая функция для реакции при выборе этого пункта. Как присвоить ей функцию при создании?

MyNewItem:=TMenuItem.Create(Self);

//как это написать правильно?
//присвоить функцию созданному пункту меню?
MyNewItem.onClick:=GetDefault;//????

MyNewItem.Caption:="бла-бла-бла;
N29.add(MyNewItem);


 
BOA_KAA   (2003-09-19 18:40) [1]

Я знаю, я знаю!!!

MyNewItem.onClick:=MyClick;

...

procedure TForm1.MyClick(Sender: TObject);
begin
//TO DO
end;


 
Думкин   (2003-09-19 18:45) [2]

TAction не пробовал? Красиво сие.


 
BOA_KAA   (2003-09-19 18:49) [3]

Не, ну это уже для асов :)


 
Yozch1   (2003-09-19 21:08) [4]

Юмористы, блин. Или я тупой.

MyNewItem.onClick:=MyClick;

не катит эта хрень.

Коллеги, где решение :-) ?


 
Yozch1   (2003-09-19 21:40) [5]

Блин.
Я процедуру объявлял без параметров. сделал-таки как предложил BOA_KAA - дело пошло. Спасибо тебе BOA_KAA!
Видимо приколы дельфей.


 
Palladin   (2003-09-20 00:22) [6]


> Видимо приколы дельфей.

? чего?
Скорее приколы твоего сознания


 
KSergey   (2003-09-20 09:31) [7]

Чтобы у дельфей было поменьше "приколов" настойчиво советую

http://www.delphikingdom.com/helloworld/runtime_comp.htm

И все статьи из

http://www.delphikingdom.com/asp/section.asp?ID=16

к обязательному прочтению!!!!


 
Zacho   (2003-09-20 09:40) [8]


> KSergey © (20.09.03 09:31) [7]

Дык, вредно же читать..
:-)



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

Форум: "Основная";
Текущий архив: 2003.10.02;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.009 c
3-3781
Plt
2003-09-11 13:08
2003.10.02
Interbase


3-3708
vidiv
2003-08-28 14:01
2003.10.02
Если ли компонент для работы с MySql?


1-3878
Unreal
2003-09-18 15:18
2003.10.02
TEdit, WideString;


1-3872
krotik
2003-09-18 16:18
2003.10.02
opends60.dll или написание расширенных хранимых процедур


8-3999
db
2003-05-27 17:56
2003.10.02
Свободная 3D модель (MyScene.max -> MyScene.exe)





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский