Форум: "Основная";
Текущий архив: 2006.11.05;
Скачать: [xml.tar.bz2];
Вниз
Создание компоненты с уже готовой формой Найти похожие ветки
← →
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]В самом начале про форму что спрашивал уже разобрался, и понял что не формой рисовать нужно а на каком то родительском объекте, типа панели.
Вот только проблема с прорисовкой компонентов других на пенели ... :(
← →
Джо © (2006-09-25 01:58) [6]> TssTrask.Parent := self.Parent;
TssTrask.Parent := Self
← →
dreamse (2006-09-25 02:00) [7]Спасибо :)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2006.11.05;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.047 c
