Скачать: CL | DM;

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

← →
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,<что-то ещё>
);

---

← →
Юрий Зотов ©   (2004-06-28 17:03) [3]

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

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

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

> FMyButton.Show;

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.028 c