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

Вниз

Кто нить знает что это за ошибка?   Найти похожие ветки 

 
Arhangel   (2002-10-09 18:54) [0]

Я пишу прогу с использованием LMDTools (в частности LMDButtonBar), так вот, у меня в проге есть такой текст:
.........
l1.Sections[0].Items[z].OnClick:=cl;
.........
procedure Tform1.cl(Sender:Tobject);
begin
shellexecute(handle,nil,pchar((Sender as TLMDButtonBarItem).caption),nil,nil,1);
end;
.........
Программа запускается и все вродебы нормально, но когда происходит в программе нажимают на кнопку и соответственно вызывается процедура procedure Tform1.cl(Sender:Tobject), то на
экране появляется такая ошибка:

"Project Project1.exe raised exception class ElnvalidCast with message "Invalid class typecast".
Process stopped. Use Step or Run to continue."

Если нажать Run, то просто появляется сообщение:"Invalid class typecast".
Может кто скажет в чем дело или что надо сделать.


 
Mike Kouzmine   (2002-10-09 19:06) [1]

А ты в хелпе посмотри, как надо объявлять эти процедуры.


 
Best Before 2024   (2002-10-09 19:07) [2]

Узнай Sender.ClassName а потом уже думай


 
Darlock   (2002-10-09 19:13) [3]

(Sender as TLMDButtonBarItem) - есть приобразование типов.
И Sender в данном случае не является ни TLMDButtonBarItem ни его потомком...


 
Mike Kouzmine   (2002-10-09 19:16) [4]

Как объявлена процедура cl? Если правильно, то как сказал BB 2024.


 
Arhangel   (2002-10-09 22:10) [5]

Объявлена так:
private
{ Private declarations }
procedure cl(Sender:TObject);


 
Arhangel   (2002-10-09 22:20) [6]

Sender.classname пишет, что это TLMDButtonBar, блин.
Как бы мне узнать что за кнопка была нажата?
К кнопке можно дойти таким путем l1.Sections[0].Items[0], но все дело в том что как раз мне и надо знать номер кнопки, которая была нажата.
L1-TLMDButtonBar
l1.Sections[0]-TLMDButtonBarsection
l1.Sections[0].Items[0]-TLMDButtonBarItem
Будем думать;)



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

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

Наверх





Память: 0.56 MB
Время: 0.033 c
14-69022
Катерина
2002-09-29 12:54
2002.10.21
Внимание! Конкурс...


1-68870
demo
2002-10-10 17:26
2002.10.21
TStringList


14-68931
Mike B.
2002-09-26 12:01
2002.10.21
ICQ


7-69048
alexsandri
2002-08-11 12:18
2002.10.21
как программно запретить запуск компьютера


1-68751
REA
2002-10-09 12:26
2002.10.21
Wizards





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