Советы по Delphi


              

Операция по заполнению элементами управления


/p> TNotebook

Операция по заполнению элементами управления компонента TNotebook почти такая же, как и в TTabbedNotebook - разница лишь в типе класса - TPage вместо TTabPage. Тем не менее, если вы заглянете в DELPHI\DOC\EXTCTRLS.INT, декларацию класса TPage вы там не найдете. По неизвестной причине Borland не включил определение TPage и в DOC-файлы, поставляемые с Delphi. Декларация TPage в EXTCTRLS.PAS (можно найти в библиотеке VCL-исходников), правда, расположена в интерфейсной части модуля. Мы восполним пропущенную информацию о классе TPage:

TPage = class(TCustomControl)privateprocedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;protectedprocedure ReadState(Reader: TReader); override;procedure Paint; override;publicconstructor Create(AOwner: TComponent); override;publishedproperty Caption;property Height stored False;property TabOrder stored False;property Visible stored False;property Width stored False;end;
Теперь, по аналогии с вышеприведенной процедурой, попробуем добавить кнопку на TNotebook. Все, что мы должны сделать - заменить "TTabbedNotebook" на "TNotebook" и "TTabPage" на "TPage". Вот что должно получиться:

{ Данная процедура добавляет кнопку в случайной позиции на }
{ текущей странице данного TNotebook. }

procedure AddButton(Notebook1 : TNotebook);
var
page : TPage;button : TButton;begin
with
Notebook1 dopage := TPage(Pages.Objects[PageIndex]);button := TButton.Create(page);trywith button do beginParent := page;Left := Random(page.ClientWidth - Width);Top := Random(page.ClientHeight - Height);end;exceptbutton.Free;end;end;
Остальное не менее просто! [000051]


Содержание  Назад  Вперед





Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий