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

← →
dreamse (2006-09-25 00:08) [0]

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

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

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

← →
Джо © (2006-09-25 00:10) [1]

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

← →
dreamse (2006-09-25 01:25) [2]

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

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

← →
Германн © (2006-09-25 01:41) [3]

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

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

← →
dreamse (2006-09-25 01:47) [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.

← →
dreamse (2006-09-25 01:48) [5]

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

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

> TssTrask.Parent := self.Parent;

TssTrask.Parent := Self

← →
dreamse (2006-09-25 02:00) [7]

Спасибо :)

Создание компоненты с уже готовой формой Найти похожие ветки