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

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

Создание компоненты с уже готовой формой [D7, WinXP]

dreamse ©   (2006-09-25 00:08:00) 

если возможность в компоненте создать форму, на ней указать все нужные действия и оброботчики и как то связать эту форму с компонентом.

Что нужно : чтобы при кидании компоненты на форму она показывала ту форму которую в ней вставили, с уже настроеными компонентами и обработчиками.

Или подскажите докуменатцию так как нашёл только примеры создания невизуальных компонентов и наследование от уже готовых , но при наследовании создаёться один компонент всего, а мне нужно сразу рабочии компоненты с кодом ...

---

dreamse   (2006-09-25 02:00:00) [1]

Спасибо :)

---

Джо   (2006-09-25 01:58:00) [2]

> TssTrask.Parent := self.Parent;

TssTrask.Parent := Self

---

dreamse   (2006-09-25 01:48:00) [3]

В самом начале про форму что спрашивал уже разобрался, и понял что не формой рисовать нужно а на каком то родительском объекте, типа панели.

Вот только проблема с прорисовкой компонентов других на пенели ... :(

---

dreamse   (2006-09-25 01:47:00) [4]

Немного не так задал вопрос, вопрос вот в чём

Например я наследую компонент от компонента tPanel

на этом компоненте ( панели ) я хочу создать TrackBar

Он вроде создаёться но не показываеться :( в чём проблема ?


unit ShellVolumePanel;

interface

uses

 SysUtils, Classes, Controls, ExtCtrls,
 SSVolumeController, //  
 ComCtrls;           // TrackBar

var
 TssVolume : tSSVolumeController;
 TssTrask : TTrackBar;

type
 TShellVolumePanel = class(TPanel)
 private
   { Private declarations }
 protected
   { Protected declarations }
 public
   { Public declarations }
 published
   { Published declarations }
   constructor Create(aowner:Tcomponent);override; //Êîíñòðóêòîð
 end;

procedure Register;

implementation

procedure Register;
begin
 RegisterComponents('ShellDesinger', [TShellVolumePanel]);
end;

{ TShellVolumePanel }

constructor TShellVolumePanel.Create(aowner: Tcomponent);
begin
inherited create(Aowner);

// Sound Controler
TssVolume:=tSSVolumeController.Create(self);

// TraskBar

TssTrask := TTrackBar.Create(self);
TssTrask.Parent := self.Parent;
TssTrask.Visible:=true;

end;

end.


---

Германн   (2006-09-25 01:41:00) [5]

> как форму из компонента прорисовать на главной форме на
> которую кидаешь компонент ?

А что значит "форму прорисовать на главной форме"?

---

dreamse   (2006-09-25 01:25:00) [6]

> Джо ©   (25.09.06 00:10) [1]

Спасибо всё получилось, как форму из компонента прорисовать на главной форме на которую кидаешь компонент ?

---

Джо   (2006-09-25 00:10:00) [7]

File/New form, на форме делаешь нужное, в юните компонента делаешь uses <Файл-Пас-для-формы>, когда нужно, создаешь экземпляр класса формы, показываешь, освобождаешь, когда не нужно.

---

Наверх