Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как создать кнопку в новом компоненте?... [D6, D7, WinXP]


Orik ©   (2004-06-27 17:03:00) 

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


Юрий Зотов   (2004-06-28 17:03:00) [1]

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

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

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

> FMyButton.Show;

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


dm   (2004-06-28 14:51:00) [2]

v1

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

FMyButton.Show;

v2

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


Юрий Зотов   (2004-06-28 13:23:00) [3]

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо