Das wär ja simpel,
probier ich gleich mal aus
Juppi, nach einigen Anlaufschwierigkeiten funktioniert es nun.
Er hat TDefaultComponentEditor nicht gefunden.
Ich muss in die Uses Anweisung noch
ComponentEditors mit aufnehmen...
Und in das Package musste ich noch
IDEIntf hinzufügen
Jetzt wird bei mir bei einem Doppelclick OnMouseUp aufgerufen.
Ist zwar Blödsinn, aber es funktioniert.
- Code: Alles auswählen
uses .....ComponentEditors, .........;
Type TLAZ_SiroSliderComponentEditor = class(TDefaultComponentEditor)
public
constructor Create(AComponent: TComponent;
ADesigner: TComponentEditorDesigner); override;
end;
constructor TLAZ_SiroSliderComponentEditor.Create(AComponent: TComponent;
ADesigner: TComponentEditorDesigner);
begin
inherited Create(AComponent, ADesigner);
BestEditEvent := 'OnMouseUp';
end;
procedure Register;
begin
RegisterComponents('Laz_Siro', [TSliderHor]); // die eigentliche Komponente
RegisterComponentEditor(TSliderHor,TLAZ_SiroSliderComponentEditor); // der Editor
end;
Da hast Du mir SEHR weitergeholfen. Nochmals vielen Dank Michl.