Hallo zusammen, ich habe folgendes vor:
In einem Programm werden in fast allen Modulen Toolbars verwendet, meistens mit den Toolbutton(Vor, Zurück, Abbruch, Löschen, etc... und eben Zusatzbuttons, wie z.B. Speichern, etc.)
Ich möchte nun eben eine Toolbar programmieren, die mir standardmäßig alle Toolbuttons anzeigt. Im Objektinspektor möchte ich zusätzlich eine neue Eigenschaft anlegen, mit dem Namen "Toolbar Standards". In dieser Eigenschaft soll man zwischen mehreren Standards auswählen können (Standard1, Standard2, Standard3, usw.)
Standard1 blendet mir z.B. alle Zusatzbuttons aus.
Standard2 zeigt mir z.B. nur Vor und Zurück an .
...
Eine neue Toolbar Komponente zu erstellen, bekomm ich hin.
Nun meine Fragen:
-wie füge ich die Toolbarbuttons hinzu
-wie kann ich meinem Programm sagen, dass er mir bei der Auswahl von "Standard1" eben alle Zusatzbuttons ausblendet.
Delphi-Quellcode:
unit ToolBar1;
interface
uses
SysUtils, Classes, Controls, ToolWin, ComCtrls;
type TTestBars =
set of (Standard1, Standard2, Standard3, Standard4, Standard5);
type
TTestToolbar =
class(TToolBar)
private
Bars: TTestBars;
{ Private-Deklarationen }
protected
{ Protected-Deklarationen }
public
{ Public-Deklarationen }
published
property Ort: TTreffpunkt
read Bars
write Bars;
{ Published-Deklarationen }
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('
ZTestKomponenten', [TTestToolbar]);
end;
end.