TSpeedButton

Вопросы программирования и использования среды Lazarus.

Модератор: Модераторы

TSpeedButton

Сообщение grigoreo » 22.06.2009 08:20:50

Непойму с чем связано но что такого особенного в TSpeedButton , делаю примерно такой код
......
sb:TSpeedButton
......
with TSpeedButton.Create(p) do

begin

Parent:=p;Name:='Close';Left:=p.ClientWidth-Width;Glyph.Assign(Img.Picture.Bitmap);OnClick:=@btCloseClick;

end;

sb:=TSpeedButton(p.FindChildControl('Close'))

т.е на TPage создаю быструю кнопку , создается прекрасно только вот следующий кусок возращает nil,
sb:=TSpeedButton(p.FindChildControl('Close'))

меняю клас TSpeedButton на скажем TBitBtn ccылка уже не пустаю почему не ищется ?я чего то недоопределил или это особенность этого типа
Аватара пользователя
grigoreo
постоялец
 
Сообщения: 195
Зарегистрирован: 10.03.2009 15:43:43
Откуда: С нашей Раши

Re: TSpeedButton

Сообщение Павел Ишенин » 22.06.2009 10:56:03

Это совместимое с Delphi поведение. FindChildControl искал только наследников TWinControl. Я не нашел объяснения этому и модифицировал его. Начиная с ревизии 20705 ищутся также TControl наследники.
Павел Ишенин
постоялец
 
Сообщения: 475
Зарегистрирован: 24.03.2007 10:16:52


Вернуться в Lazarus

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 49

Рейтинг@Mail.ru