TSpeedButton

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

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

Ответить
Аватара пользователя
grigoreo
постоялец
Сообщения: 195
Зарегистрирован: 10.03.2009 14:43:43
Откуда: С нашей Раши

TSpeedButton

Сообщение grigoreo »

Непойму с чем связано но что такого особенного в 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ылка уже не пустаю почему не ищется ?я чего то недоопределил или это особенность этого типа
Павел Ишенин
постоялец
Сообщения: 475
Зарегистрирован: 24.03.2007 09:16:52

Сообщение Павел Ишенин »

Это совместимое с Delphi поведение. FindChildControl искал только наследников TWinControl. Я не нашел объяснения этому и модифицировал его. Начиная с ревизии 20705 ищутся также TControl наследники.
Ответить