AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Komponente mit ChildControls entwickeln

Ein Thema von torud · begonnen am 21. Okt 2010 · letzter Beitrag vom 27. Okt 2010
Antwort Antwort
Seite 1 von 2  1 2      
torud

Registriert seit: 26. Jul 2002
Ort: Sachsen
1.198 Beiträge
 
Delphi XE5 Professional
 
#1

Komponente mit ChildControls entwickeln

  Alt 21. Okt 2010, 14:37
Hallo Wissende,

ich möchte eine eigene DataBar entwickeln. Das soll wie folgt aussehen.

Als Mutter soll ein TPanel zum Einsatz kommen. Darauf soll eine Combobox und 2 Buttons platziert werden. Also eigentlich eine Toolbar. Die Buttons sollen später zum Navigieren in der Combobox dienen, falls nötig. Die Combobox soll gespeicherte Einträge aufnehmen und OnItemSelect die passenden Inhalte des Eintrages aus einer IniDatei laden. So viel nur als Background für Euch zum wissen. Das Ganze habe ich schon sehr oft so gemacht, nur nervt es mich, dass ich das Ganz immer über die Objektablege in jeden Dialog einpflegen muss. Aus diesem Grund möchte ich nun eine Komponente daraus machen.

Zur Zeit scheitere ich leider daran, dass mir unklar ist, wie ich die Combobox auf dem Panel platziere. Ich erhalte leider immer eine Fehlermeldung von Delphi7.

Hier mal mein Code, der sicher noch nicht optimal ist. Ich würde mich freuen, wenn mir der Ein oder Andere ein paar Tipps geben könnte. Die verwendeten Komponenten sind zum Teil von TMS, aber ich könnte es Testweise auch auf Standard-Controls von Delphi umschreiben.

Delphi-Quellcode:
unit myDataBar;

interface

uses
  SysUtils, Classes, Controls, AdvToolBar, StdCtrls;

type
  TmyDataBar = class(TAdvDockPanel)
  private
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
    FToolbar : TAdvToolbar;
    FDataCombo : TCombobox;
    Fbtn_next : TAdvToolBarButton;
    Fbtn_previous : TAdvToolBarButton;
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    { Published-Deklarationen }
  end;

procedure Register;

implementation
{$R mydatabar.dcr}

procedure Register;
begin
  RegisterComponents('Beispiel', [TmyDataBar]);
end;

constructor TmyDataBar.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);

  Self.Height := 43;
  Self.Align := daTop;

  FToolbar := TAdvToolBar.Create(AOwner);
  FToolbar.Parent := Self;
  FToolbar.FullSize := True;

  FDataCombo := TComboBox.Create(FToolbar);
  FDataCombo.Parent := FToolbar;
  FDataCombo.Width := 200;

  Fbtn_next := TAdvToolBarButton.Create(FToolbar);
  Fbtn_next.Parent := FToolbar;
  Fbtn_next.Caption := 'Next';

  Fbtn_previous := TAdvToolBarButton.Create(FToolbar);
  Fbtn_previous.Parent := FToolbar;
  Fbtn_previous.Caption := 'Previous';
end;

destructor TmyDataBar.Destroy;
begin
  inherited;
end;

end.
Danke
Tom
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.625 Beiträge
 
Delphi 12 Athens
 
#2

AW: Komponente mit ChildControls entwickeln

  Alt 21. Okt 2010, 15:00
Ich erhalte leider immer eine Fehlermeldung von Delphi7.
Und welche? In welcher Zeile? Ansonsten gibt es irgendwo hier in der DP einen Link zu einem Video, das sich mit Composite Controls beschäftigt. Du solltest einmal danach suchen, das war IMO sehr interessant.

[edit] Ich hab den Link wiedergefunden. [/edit]
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen

Geändert von DeddyH (21. Okt 2010 um 16:16 Uhr)
  Mit Zitat antworten Zitat
torud

Registriert seit: 26. Jul 2002
Ort: Sachsen
1.198 Beiträge
 
Delphi XE5 Professional
 
#3

AW: Komponente mit ChildControls entwickeln

  Alt 21. Okt 2010, 17:06
Cooler Tipp!

FlashMovie läuft schon. Scheint genau das zu sein, was ich brauche!!!

Für alle Suchfaulen hier nochmal der Link zu einem Zip-File, indem sich das FlashDesktopMovie befindet:
http://video.codegear.com/CodeRageII...clControls.zip
Danke
Tom
  Mit Zitat antworten Zitat
Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#4

AW: Komponente mit ChildControls entwickeln

  Alt 21. Okt 2010, 17:23
Delphi-Quellcode:
constructor TmyDataBar.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Parent := TwinControl(Owner);
  Self.Height := 43;
.....
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
  Mit Zitat antworten Zitat
torud

Registriert seit: 26. Jul 2002
Ort: Sachsen
1.198 Beiträge
 
Delphi XE5 Professional
 
#5

AW: Komponente mit ChildControls entwickeln

  Alt 21. Okt 2010, 20:12
Hallo,

das geänderte Creating half schonmal!

Nun erhalte ich aber folgende Fehlermeldung, wenn ich versuche die einem Formular hinzugefügte Komponente zu kompilieren:

Im Projekt Project2.exe ist eine Exception der Klasse EComponentError aufgetreten. Meldung: 'Komponente mit der Bezeichnung DataToolbar existiert bereits'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.

Folgenden Code benutze ich aktuell:

Delphi-Quellcode:
unit myDataBar;

interface

uses
  SysUtils, Classes, Controls, AdvToolBar, StdCtrls, Dialogs;

type
  TmyDataBar = class(TAdvDockPanel)
  private
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
    FToolbar : TAdvToolbar;
    FDataCombo : TCombobox;
    Fbtn_next : TAdvToolBarButton;
    Fbtn_previous : TAdvToolBarButton;
    Ftb_sep : TAdvToolBarSeparator;
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    procedure GoNext(Sender: TObject);
  published
    { Published-Deklarationen }
  end;

procedure Register;

implementation
{$R mydatabar.dcr}

procedure Register;
begin
  RegisterComponents('THRU-Soft', [TmyDataBar]);
end;

constructor TmyDataBar.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Parent := TwinControl(Owner);
  Self.Height := 43;

  Self.Align := daTop;

  FToolbar := TAdvToolBar.Create(AOwner);
  FToolbar.Name := 'DataToolbar';
  FToolbar.Parent := Self;
  FToolbar.FullSize := True;

  FDataCombo := TComboBox.Create(FToolbar);
  FDataCombo.Name := 'FDataCombo';
  FDataCombo.Text := 'Dummy';
  FDataCombo.Parent := TWinControl(FToolbar);
  FDataCombo.Width := 200;

  Ftb_sep := TAdvToolBarSeparator.Create(FToolbar);
  Ftb_sep.Parent := TWinControl(FToolbar);
  Ftb_sep.Width := 20;

  Fbtn_next := TAdvToolBarButton.Create(FToolbar);
  Fbtn_next.Name := 'btn_Next';
  Fbtn_next.Parent := TWinControl(FToolbar);
  Fbtn_next.Caption := 'Next';
  Fbtn_next.ShowCaption := True;

  Fbtn_previous := TAdvToolBarButton.Create(FToolbar);
  Fbtn_previous.Name := 'btn_prev';
  Fbtn_previous.Parent := TWinControl(FToolbar);
  Fbtn_previous.Caption := 'Previous';
  Fbtn_previous.ShowCaption := True;
  Fbtn_previous.OnClick := GoNext;
end;

procedure TmyDataBar.GoNext(Sender: TObject);
begin
  ShowMessage('Next');
end;

destructor TmyDataBar.Destroy;
begin
  inherited;
end;

end.
Danke
Tom

Geändert von torud (21. Okt 2010 um 20:15 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von stahli
stahli

Registriert seit: 26. Nov 2003
Ort: Halle/Saale
4.343 Beiträge
 
Delphi 11 Alexandria
 
#6

AW: Komponente mit ChildControls entwickeln

  Alt 21. Okt 2010, 20:25
Versuche mal ... FToolbar.Name := Name + '_DataToolbar';
Stahli
http://www.StahliSoft.de
---
"Jetzt muss ich seh´n, dass ich kein Denkfehler mach...!?" Dittsche (2004)
  Mit Zitat antworten Zitat
torud

Registriert seit: 26. Jul 2002
Ort: Sachsen
1.198 Beiträge
 
Delphi XE5 Professional
 
#7

AW: Komponente mit ChildControls entwickeln

  Alt 21. Okt 2010, 20:58
hm, Name scheint leer zu sein.

Siehe nun etwas andere Fehlermeldung:

Im Projekt Project1.exe ist eine Exception der Klasse EComponentError aufgetreten. Meldung: 'Komponente mit der Bezeichnung _DataToolbar existiert bereits'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
Danke
Tom
  Mit Zitat antworten Zitat
Benutzerbild von stahli
stahli

Registriert seit: 26. Nov 2003
Ort: Halle/Saale
4.343 Beiträge
 
Delphi 11 Alexandria
 
#8

AW: Komponente mit ChildControls entwickeln

  Alt 21. Okt 2010, 21:34
Wenn Du einer Komponente einen Namen gibst, muss der in der Anwendung eindeutig sein.
Wenn Du Komponenten zur Laufzeit erzeugst, wird dieser jedoch erst mal kein Name zugewiesen.

Ich habe das mal so gelöst:

Delphi-Quellcode:
constructor TXyz.Create(AOwner: TComponent);
begin
  inherited;
  Name := FindUniqueName(ClassName);
end,
Delphi-Quellcode:
unit ssClasses;

interface

function FindUniqueName(BaseName: String; OwnerName: String = ''): String;

implementation

uses
  SysUtils, Forms, Windows;

var
  UN: LongWord = 0;

function FindUniqueName(BaseName: String; OwnerName: String = ''): String;
var
  N: String;
begin
  if OwnerName <> 'then
    BaseName := OwnerName + '_' + BaseName;
  BaseName := BaseName + '_';
  Inc(UN);
  N := BaseName + IntToStr(UN);
  Result := N;
  //OutputDebugString(PChar(N));
end;

end.
Stahli
http://www.StahliSoft.de
---
"Jetzt muss ich seh´n, dass ich kein Denkfehler mach...!?" Dittsche (2004)
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.184 Beiträge
 
Delphi 12 Athens
 
#9

AW: Komponente mit ChildControls entwickeln

  Alt 21. Okt 2010, 22:03
Jede Komponente, welche als "Owner" fungiert, kann bei ihren Childs keine mehrfachen Namen verwalten.
>>> Namen müssen eindeutig sein.

Einzige Ausnahme ist "kein Name", ala '' .

Dynamisch erstellte Komponenten müssen/können eh ohne Name genutzt werden, da man sie auch über ihre Instanz referenzieren/verwalten kann.
(ist auch schneller/optimaler, als FindComponent)

Es ist also nicht nötig an seine SubKomponenten Namen zu vergeben.
$2B or not $2B

Geändert von himitsu (21. Okt 2010 um 22:05 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von stahli
stahli

Registriert seit: 26. Nov 2003
Ort: Halle/Saale
4.343 Beiträge
 
Delphi 11 Alexandria
 
#10

AW: Komponente mit ChildControls entwickeln

  Alt 21. Okt 2010, 22:07
Richtig, eine Namensvergabe kann aber beim Debuging hilfreich sein.
Stahli
http://www.StahliSoft.de
---
"Jetzt muss ich seh´n, dass ich kein Denkfehler mach...!?" Dittsche (2004)
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:56 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz