Eigene Komponente (Toolbar) programmieren

[DeddyH]

Lass doch einfach einmal die Namenszuweisung an den Button weg.

[Metallicwar]

Moin Moin, also ich ein großes PRoblem schonmal gelöst, aber schon treten neue Probleme auf. *lach*
Erstmal mein bisheriger Code, ich kann meine Toolbar auf die Form ziehen, kann den Buttons OnClick Ereignisse zuweisen, diese funktionieren auch.

Delphi-Quellcode:

unit Testtoolbar2;

interface

uses
  SysUtils, Classes, Controls, ToolWin, ComCtrls, ImgList, cxGraphics;

type TTestBars = set of (Standard1, Standard2, Standard3, Standard4, Standard5);

type
  TTestToolbar = class(TToolBar)
  public
  constructor create(aOwner: TComponent); override;
  destructor Destroy; override;
    //Bars: TTestBars;
    //Buttons: TToolButton;
    { Private-Deklarationen }
  private
    Buttons : TToolbutton;
    ImageList: TcxImageList;
  protected
    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
  end;

  procedure Register;

implementation

constructor TTestToolbar.Create;
begin
  inherited;
  Parent := Owner as TWinControl;
  if Assigned(Buttons) then
    Exit;

  if csDesigning in ComponentState then
  begin
    Buttons := TToolButton.Create(Parent);
    Buttons.Name := 'btnSpeichern';
    Buttons.Parent := self;
    Buttons.Caption := 'Speichern';

    Buttons := TToolButton.Create(Self.Parent);
    Buttons.Name := 'btnZurück';
    Buttons.Parent := self;
    Buttons.Caption := 'Zurück';

    Buttons := TToolButton.Create(Self.Parent);
    Buttons.Name := 'btnVor';
    Buttons.Parent := self;
    Buttons.Caption := 'Vor';

    Buttons := TToolbutton.Create(self.Parent);
    Buttons.Name := 'btnNeu';
    Buttons.Parent := self;
    Buttons.Caption := 'Neu';
  end;

  //Standardeigenschaften für Toolbar setzten
  Self.ShowCaptions := True;
end;

destructor TTestToolbar.Destroy;
begin
  Buttons.Free;
  inherited;
end;

procedure TTestToolbar.Notification(AComponent: TComponent;
  Operation: TOperation);
begin
  inherited Notification(AComponent, Operation);
  if (AComponent = Buttons) and (Operation = opRemove) then
    Buttons := nil;
end;

procedure Register;
begin
  RegisterComponents('ZTestKomponenten', [TTestToolbar]);
end;

end.

Wenn ich nun aber noch eine Toolbar auf die Form ziehe meckert er, dass die Komponente mit dem Namen btnNeu, ... bereits existiert, also werd ich beim programmieren der Toolbar eine function einbauen, die prüft, ob eine Komponente mit diesem Name bereits existiert, wenn ja prüfen ob eine mit dem Namen btnNeu1 existiert, falls ja prüfen ob BtnNeu2 existiert, usw. .Falls nein, den nächst freien Namen verwenden.
Oder ist das anderst und einfacher zu lösen

[himitsu]

Der Owner der Unterkomponenten hat Self zu sein, da die Toolbar ja der Bersitzer ist.

.Create({Self.}Parent) und vorallem .Create({Self.}Owner) sind total falsch
und müßten in .Create(Self) abändert werden.

Da du den Subkomponenten den selben "externen" Owner gibst, sind bei einer zweiten Toolbar die Namen natürlich schon belegt, da innerhalb eines Owner keine Namen doppelt vorkommen dürfen (abgesehn von kein Name).

PS: Wenn man Komponenten dynamisch erstellt, dann muß man keinen Namen vergeben, da der Name vorwiegend nur von dem VCL-Loader benötigt wird, um die erstellten Komponenten den namentlich gleichen Feldern in der Form zuweisen zu können
oder wenn man FindComponent verwenden muß, welches sich aber auch anders/besser lösen läßt.

[Metallicwar]

Hi himitsu,
lass dir mal den Owner des Toolbuttons in der Toolbar anzeigen. --> Wirst das Formular zurück kriegen, auf das die Toolbar liegt.
Habs trotzdem mal so gemacht, wie du gesagt hast also anstatt .Create(Parent) habe ich .Create(Self) verwendet.
Dann kann ich nichtmal mehr, auf den Button in der Toolbar klicken.

[Metallicwar]

Lösung bis dahin:

Delphi-Quellcode:

unit Testtoolbar2;

interface

uses
  SysUtils, Classes, Controls, ToolWin, ComCtrls, ImgList, cxGraphics;

type TTestBars = set of (Standard1, Standard2, Standard3, Standard4, Standard5);

type
  TTestToolbar = class(TToolBar)
  public
  constructor create(aOwner: TComponent); override;
  destructor Destroy; override;
    //Bars: TTestBars;
    //Buttons: TToolButton;
    { Private-Deklarationen }
  private
    Buttons : TToolbutton;
    ImageList: TcxImageList;
    function GetNextName(AName: String): String;
  protected
    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
  end;

  procedure Register;

implementation

function TTestToolbar.GetNextName(AName: String): String;
var
  i: Integer;
begin
  i := 1;
  while (Self.Owner.FindComponent(AName + IntToStr(i))) <> nil do
    i := i + 1;
  Result :=(AName + IntToStr(i));
end;

constructor TTestToolbar.Create;
begin
  inherited;
  Parent := Owner as TWinControl;
  if Assigned(Buttons) then
    Exit;

  if csDesigning in ComponentState then
  begin
    Buttons := TToolButton.Create(Parent);
    Buttons.Name := GetNextName('btnSpeichern');
    Buttons.Parent := self;
    Buttons.Caption := 'Speichern';

    Buttons := TToolButton.Create(Self.Parent);
    Buttons.Name := GetNextName('btnZurück');
    Buttons.Parent := self;
    Buttons.Caption := 'Zurück';

    Buttons := TToolButton.Create(Self.Parent);
    Buttons.Name := GetNextName('btnVor');
    Buttons.Parent := self;
    Buttons.Caption := 'Vor';

    Buttons := TToolbutton.Create(self.Parent);
    Buttons.Name := GetNextName('btnNeu');
    Buttons.Parent := self;
    Buttons.Caption := 'Neu';
  end;

  //Standardeigenschaften für Toolbar setzten
  Self.ShowCaptions := True;
end;

destructor TTestToolbar.Destroy;
begin
  Buttons.Free;
  inherited;
end;

procedure TTestToolbar.Notification(AComponent: TComponent;
  Operation: TOperation);
begin
  inherited Notification(AComponent, Operation);
  if (AComponent = Buttons) and (Operation = opRemove) then
    Buttons := nil;
end;

procedure Register;
begin
  RegisterComponents('ZTestKomponenten', [TTestToolbar]);
end;

end.

[himitsu]

Nur durch Änderung des Owners sollte sich nichts am Programmablauf ändern, da der Owner nur für die Freigabe der Subkomponenten zuständig ist und sonst keinen Einfluß besitzt, abgesen vom Property .Components und vom FindComponent.

Der Owner gibt seine zugeordneten Komponenten frei, wenn er selbst freigegeben wird ... Notification ist also etwas overload.

PS: Buttons kann nur einen Button aufnehmen, weswegen man hier ein Array, eine Liste (TObjectList) oder eben die vorhandene Liste .Components verwenden sollte.

Delphi-Quellcode:

unit Testtoolbar2;

interface

uses
  SysUtils, Classes, Controls, ToolWin, ComCtrls, ImgList, cxGraphics;

type TTestBars = set of (Standard1, Standard2, Standard3, Standard4, Standard5);

type
  TTestToolbar = class(TToolBar)
  private
    { Private-Deklarationen }
    Buttons : array[0..3] of TToolbutton;
    ImageList: TcxImageList;
  public
    { Public-Deklarationen }
    constructor Create(aOwner: TComponent); override;
  end;

  procedure Register;

implementation

constructor TTestToolbar.Create;
begin
  inherited;
  Parent := Owner as TWinControl;
  { wann sollten die/der denn erzeugt wurden sein? }
  //if Assigned(Buttons) then
  //  Exit;

  { sollen die Buttons wirklich NUR im Formdesigner vorhanden sein? }
  //if csDesigning in ComponentState then
  //begin
    Buttons[0] := TToolButton.Create(Self);
    Buttons[0].Parent := Self;
    Buttons[0].Caption := 'Speichern';

    Buttons[1] := TToolButton.Create(Self);
    Buttons[1].Parent := Self;
    Buttons[1].Caption := 'Zurück';

    Buttons[2] := TToolButton.Create(Self);
    Buttons[2].Parent := Self;
    Buttons[2].Caption := 'Vor';

    Buttons[3] := TToolbutton.Create(self.Parent);
    Buttons[3].Parent := Self;
    Buttons[3].Caption := 'Neu';
  //end;

  //Standardeigenschaften für Toolbar setzten
  ShowCaptions := True;
end;

procedure Register;
begin
  RegisterComponents('ZTestKomponenten', [TTestToolbar]);
end;

end.

[Metallicwar]

Wenn ich das so mache, wie von dir vorgeschlagen kann ich

A: keine Events mit den erzeugten Buttons auslösen(sind nichtmal anklickbar)

B: Beim Ausführen der Anwendung meint er dass eine Komponenten mit dem Namen TToolButton bereits existiert.

Hast du's mal bei dir getestet?

[himitsu]

Ich dachte ja, daß man über irgendeinen ComponentState sagen kann, daß die Buttons designbar sind, aber ich fand nichts ... nja

Delphi-Quellcode:

unit ToolBar1;

interface

uses
  SysUtils, Classes, Controls, ToolWin, ComCtrls;

type
  TTestToolBar = class(TToolBar)
  private
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
    procedure Loaded; override;
  public
    { Public-Deklarationen }
    constructor Create(aOwner: TComponent); override;
  published
    { Published-Deklarationen }
  end;

procedure Register;

implementation

procedure TTestToolBar.Loaded;
var
  Button: TToolButton;
begin
  inherited;
  if ControlCount = 0 then
  begin
    Button := TToolButton.Create(Owner);
    Button.Parent := Self;
    Button.Caption := 'Speichern';

    Button := TToolButton.Create(Owner);
    Button.Parent := Self;
    Button.Caption := 'Zurück';

    Button := TToolButton.Create(Owner);
    Button.Parent := Self;
    Button.Caption := 'Vor';

    Button := TToolbutton.Create(Owner);
    Button.Parent := Self;
    Button.Caption := 'Neu';
  end;
end;

constructor TTestToolbar.Create(aOwner: TComponent);
begin
  inherited;
  Parent := aOwner as TWinControl;
  ShowCaptions := True;
  if not (csLoading in ComponentState) then
    Loaded;
end;

procedure Register;
begin
  RegisterComponents('Samples', [TTestToolBar]);
end;

end.