Как создать кнопку в новом компоненте?...

← →
Orik (2004-06-27 17:03) [0]

Необходимо в новом компоненте реализовать кнопку...
Класс кнопки создал, в конструкторе создаваемого определил его свойства (компонент строится от TCastomControl) теперь проблемма - необходимо как-то отобразить эту кнопку в моем компоненте, подскажите пожалуйста как это сделать?

← →
Юрий Зотов © (2004-06-28 13:23) [1]

constructor TMyComponent.Create(AOwner: TComponent);
begin
...
FMyButton := TMyButton.Create(Self); // Создаем кнопку
FMyButton.Parent := Self; // Делаем ее видимой
FMyButton.SetBounds(...); // Устанавливаем размер и положение
FMyButton.OnClick := ... // Назначаем обработчик кликов
end;

← →
dm © (2004-06-28 14:51) [2]

v1

FMyButton.Top:=;
FMyButton.Left:=;
FMyButton.Width:=;
FMyButton.Height:=;

FMyButton.Show;

v2

SetWindowPos(
FMyButton.Handle,
X,Y,Wdth,Hght,<что-то ещё>
);

> dm © (28.06.04 14:51) [2]

> FMyButton.Top:=;
> FMyButton.Left:=;
> FMyButton.Width:=;
> FMyButton.Height:=;

Каждая из этих 4 строчек приведет к вызову SetBounds. Не лучше ли сделать ОДИН вызов вместо ЧЕТЫРЕХ?

> FMyButton.Show;

Если у FMyButton не назначен Parent, то никакие Show не помогут, кнопка все равно останется невидимой. А если назначен, то никакие Show и не нужны.

Как создать кнопку в новом компоненте?... Найти похожие ветки