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

Вниз

ToolBar   Найти похожие ветки 

 
Wolverin   (2002-06-27 16:17) [0]

Помогите пожалуста... Есть такая проблема...
Допустим у меня есть ToolBar пустой...
Я программно создаю кнопки.. А как событи я от созданных порограммно кнопока отработать?


 
Volj   (2002-06-27 16:32) [1]

Описываешь процедуру
procedure TryLaLaClick(Sender: TObject);
begin
ShowMessage("TryLaLa");
end;
А затем
ToolButton1.OnClick := TryLaLaClick;
Читай описание процедурных типов :)


 
Wolverin   (2002-06-27 16:46) [2]

А ToolButton.OnClick:=TryLaLa Где писать?


 
Volj   (2002-06-27 16:59) [3]

После создания кнопки, очевидно :)


 
Игорь Шевченко   (2002-06-27 17:00) [4]

Там, где ToolButton создается, очевидно

Только маленькая поправка.

TryLala должна быть методом объекта, например формы.

TForm1.TryLala (Sender : TObject);
...


 
Volj   (2002-06-27 17:04) [5]

2Игорь:
Если не описать trylala в форме, то
ToolButton1.OnClick := TryLaLaClick;
скорее всего не скомпилится :) А вообще, судя по вопросу, это может быть ценным замечанием :)


 
Игорь Шевченко   (2002-06-27 17:07) [6]

Там, где ToolButton создается, очевидно

Только маленькая поправка.

TryLala должна быть методом объекта, например формы.

TForm1.TryLala (Sender : TObject);
...


 
Proton   (2002-06-27 19:29) [7]

C:\Soft\borland\Delphi5\Help\Examples\Menu2\pmnudmo.dpr
Программно создаются пункты меню и обрабатываются события.



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

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

Наверх





Память: 0.46 MB
Время: 0.013 c
3-47071
Бежечаночка
2002-05-31 12:23
2002.07.15
Кто-нибудь работал с сервером ADS


1-47473
Dmitry V. Averuanov
2002-07-01 12:52
2002.07.15
Нужно сделать рамку с ПЛАВНО ! меняющимся цветом


4-47876
glav
2002-05-13 08:56
2002.07.15
запуск приложений


1-47590
Still Swamp
2002-06-28 16:08
2002.07.15
Как временно сохранить несколько Integer


3-47163
Sevish
2002-06-17 08:09
2002.07.15
Помогите с тормозами при открытии ...





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский