Eigene Komponente (Toolbar) programmieren

[Jumpy]

Wenn ich eine normale Toolbar auf ein Form ziehe und dann darauf einen Button kreire, dann taucht der Button auch in den Komponenten meiner Form auf, d.h. das Form ist der owner oder parent von dem Button?

Vllt. musst du das entsprechend Abbilden?

[Metallicwar]

Zitat von Jumpy:

Wenn ich eine normale Toolbar auf ein Form ziehe und dann darauf einen Button kreire, dann taucht der Button auch in den Komponenten meiner Form auf, d.h. das Form ist der owner oder parent von dem Button?

Vllt. musst du das entsprechend Abbilden?

ja, über eine normale Toolbar zur Laufzeit habe ich es auch schon öfters gemacht, da funktionierts bei mir auch, aber da mach ich nix anderst wie in diesem Fall, nur eben, dass mein Parent, eine neue Komponente ist.

[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?