Панель и несколко кнопок

[PIKSEL_IT]

Люди помогите.
Надо создать компонент который состоит из панели и нескольких кнопок (действия кнопок статичны и прописаны програмно).
Скажите хотябы основные моменты.
Заранее спасибо.

[SPM]

Чем тулбары не устраивают?

[PIKSEL_IT]

В смысле чтоб на компоненте сразу были кнопки. (кинул ккомпонент на форму и все готово)

[Frees]

TFrame

[PIKSEL_IT]

Смысл в написание компонента !
От чего лучше брать наследование и как кнопку туда закинуть и как её запраграмировать ?

Сообщение отредактировано: PIKSEL_IT - 16.04.10, 07:27

[SPM]

Вы экшены наделайте, и от гуи не зависят, можно кнопки делать какие угодно.

[PIKSEL_IT]

Ась ... Я какбы тольку учусь.

Сообщение отредактировано: PIKSEL_IT - 16.04.10, 07:44

[Frees]

Цитата PIKSEL_IT @ 16.04.10, 07:27

Смысл в написание компонента !

пишешь компонент ради написания компонента?

Цитата PIKSEL_IT @ 16.04.10, 07:27

От чего лучше брать наследование

а ты посмотри как TPanel например реализована

Цитата PIKSEL_IT @ 16.04.10, 07:27

и как её запраграмировать ?

руками читая книги

[DimaBr]

Для начала !
1. Унаследуйтесь от TPanel

TButtonPanel = class(TPanel)

2. Заведите поля типа кнопок

FButton1: TButton;

3. Заведите обработчики событий

procedure DoButtonClick(Sender: TObject);

4. В конструкторе создайте эти кнопки

constructor TButtonPanel.Create(AOwner: TComponent);
begin
  inherited Create(AOwner); // вызываем унаследованый конструктор
  FButton1 := TButton.Create(self); // создаём кнопку
  FButton1.ObClick := DoButtonClick; // назначаем ей обработчик события
  FButton.Parent := self; // указываем где она должна появится
end;

5. В деструкторе уничтожьте эти кнопки

destructor TButtonPanel.Destroy;
begin
  FButton1.Free;
  inherited Destroy;
end;

Совет: лучше всего создавать контролы тогда, когда создано основное окно (CreateWnd), поскольку наследники TControl зачастую жить не могут без окна.

[PIKSEL_IT]

DimaBr Спасибо.
А можно подробней:

Цитата DimaBr @ 16.04.10, 08:51

Совет: лучше всего создавать контролы тогда, когда создано основное окно (CreateWnd), поскольку наследники TControl зачастую жить не могут без окна.

[DimaBr]

Контролы (наследники TControl, а не TWinControl - TSpeedButton, TImage, TLabel и т.д.) по природе своей не существуют. О них операционка не подозревает. Своё пространство для рисования им предоставляют оконые компоненты, так же и диспечерезацию возникающих событий.
Для того чтобы себя на чём-то нарисовать, нужно чтобы родитель обладал собственной канвой, а она появляется после создания родительского окна.
Вот по этому и появляется присловутая ошибка Control ... has no parent window

Вот простой типичный пример

constructor TMyLabel.Create(AOwner: TComponent);
var W: integer;
begin
  inherited;
  W := Canvas.TextWidth('Test'); // вот тут доступа к Canvas ещё нет, поскольку не назначен Parent и следовательно не извесно на чём рисовать
end;