also ich hab das jetzt mal so probiert, wie du es gepostet hast, aber onMouseDown ist im ObjectInspector
immer noch nicht sichtbar!
hier mal der code:
Delphi-Quellcode:
unit DigitLed;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls;
...
type
TDigitLed =
class(TPaintBox)
private
...
protected
{ Protected declarations }
...
procedure MouseDown(Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
override;
public
{ Public declarations }
...
published
{ Published declarations }
...
property OnMouseDown;
end;
procedure Register;
implementation
{$R DIGITLED.DCR}
procedure Register;
begin
RegisterComponents('
MoonRed', [TDigitLed]);
end;
...
procedure TDigitLed.MouseDown(Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
inherited;
end;
...
end.
die komponente ist nicht von mir, ich benutze sie aber und will nun eine onMouseDown Event(oder OnClick)
ich hab die alte komponente runter geschmissen, die modifizierte feherfrei installiert und es geht
immer noch nicht! woran kann das liegen? Jemand eine Idee?
gruss,
iaby