Eigene Komponente (Toolbar) programmieren

[DeddyH]

Pack doch einmal eine Toolbar auf Dein Formular und definiere dort einen neuen Schalter. In dessen OnClick-Methode lässt Du Dir seinen Parent und seinen Owner ausgeben. Ergebnis: Owner ist das Formular, Parent die Toolbar. So solltest Du das dann auch abbilden.

[Satty67]

Etwas blöd so spät damit zu kommen, aber wäre eine Komponentenvorlagen-Sammlung nicht die einfachere Lösung gewesen?

Also Toolbar mit Buttons bestücken und Standardcode in den Events eingeben. Dann Toolbar und Imagelist selektieren und Komponenten-Vorlage erzeugen.

€: Erkenne gerade, das die gewünschte Aufgabe damit nicht ganz erfüllt wird (zumindest nicht, wenn zur Laufzeit die Buttons ein/ausgeblendet werden sollen). Hab' das etwas falsch interpretiert.

[Metallicwar]

ich bin gerade dabei, mir den Owner und den Parent anzeigen zu lassen. Melde mich wieder!

[Metallicwar]

also der hinzugefügte Button ist jetzte auch anklickbar:

Delphi-Quellcode:

unit Testtoolbar2;

interface

uses
  SysUtils, Classes, Controls, ToolWin, ComCtrls;

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

type
  TTestToolbar = class(TToolBar)
  public
  constructor create(aOwner: TComponent); override;
    //Bars: TTestBars;
    //Buttons: TToolButton;
    { Private-Deklarationen }
  private
    Buttons : TToolbutton;
  end;

  procedure Register;

implementation

constructor TTestToolbar.Create;
begin
  inherited Create(aOwner);
  begin
    //Standardeigenschaften für Toolbar setzen
    Self.ShowCaptions := True;

    Parent := AOwner as TWinControl;
    Buttons := TToolbutton.Create(self.Parent); // <-- SELF.Parent 
    Buttons.Name := 'btnNeu';
    Buttons.Parent := self;
    Buttons.Caption := 'Neu';
  end;
end;

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

end.

nächstes Problem, bei dem ich mir leider nicht zu helfen weiß ist, dass ich zur Laufzeit, wenn ich auf den Toolbutton meiner neuen Komponente klicke, den Fehler erhalte: "Komponente mit der Bezeichnung btnNeu existiert bereits"

[Jumpy]

Buttons := TToolbutton.Create(self.Parent);

müsste mMn sein:

Buttons := TToolbutton.Create(self.Owner);

Das das klappt ist glaub ich "Zufall" da self.Owner = self.Parent (= das Form).

Ziehst du die Toolbar auf ein Panel, könnte das ggf. schief laufen, oder?

-------------

Ist dem Button den schon ein Ereignis zugewiesen?

[Metallicwar]

Zitat:

Ist dem Button den schon ein Ereignis zugewiesen?

ja, ein OnClick!

P.S. mit Buttons := TToolbutton.Create(self.Owner); erhalte ich den selben Fehler!

[Jumpy]

Zitat:

P.S. mit Buttons := TToolbutton.Create(self.Owner); erhalte ich den selben Fehler!

Das sollte nicht bei dem Fehler helfen, sondern war eine allgemeine Beobachtung/Frage.

Was den Fehler betrifft:

Wie sieht das Ereignis den aus? Den darin scheints ja zu hängen, wenns während der Laufzeit beim Knopfdruck mecker gibt...
Es klingt ja so, als soll sich der Knop auf Knopfdruck selber neu erzeugen?

[Metallicwar]

Zitat:

Es klingt ja so, als soll sich der Knop auf Knopfdruck selber neu erzeugen?

also --> ich ziehe meine eigene Toolbar auf das Formular, weise dem hinzugefügtem Button der Toolbar, ein OnClick Ereignis zu: ShowMessage('Test'); Wenn ich zur Laufzeit auf den Button klicke, erhalte ich die Felermeldung.

In diesem Fall, kann mir doch ComponentState weiterhelfen, oder?

[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