Pascal 7 & Objects

       

Построение командных кнопок


-----------------------------------------------------------------

Кроме обычных 6 параметров, конструктор Init объекта TButton воспринимает текстовую строку типа PChar, AText и флаг типа Boolean IsDefaultButton, указывающий, должна ли кнопка быть ис- пользуемой по умолчанию или обычной командной кнопкой. Конструк- тор Init объекта TButton описывается следующим образом:

constructor TButton.Init(AParent: PWindowsObject; AnID: Integer; AText: PChar; X, Y, W, H: Integer; IsDefault: Boolean);

Типичный конструктор для обычной кнопки выглядит так:

Push1 := New(PButton, Init(@Self, id_Push1, 'Test Button', 38, 48, 316, 24, False));



Содержание раздела