Hallo Alle,
ich habe eine Komponente von TPaintBox abgeleitet, die einige Linien zeichnet.
Delphi-Quellcode:
TLineMode = (lmNone, lmLTRTRB, lmLBRBRT, lmRTLTLB, lmRBLBLT);
TLine = class(TPaintBox)
private
FLineMode: TLineMode;
procedure SetLineMode(const Value: TLineMode);
protected
procedure Paint; override;
// procedure Click; override;
// procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure SetPosition(X1, Y1, X2, Y2: Integer); virtual;
procedure SetPositionTo(X, Y: Integer); virtual;
published
property LineMode: TLineMode read FLineMode write SetLineMode;
end;
constructor TLine.Create(AOwner: TComponent);
begin
inherited;
// ControlStyle := [csNoStdEvents];
end;
Kann ich erreichen, dass diese für die Maus "durchlässig" ist?
Mit ControlStyle := [csNoStdEvents] erreiche ich, dass keine Mausereignisse behandelt werden. Die Komponente verdeckt aber immer noch den Parent.
Ich möchte gern, dass MouseOver von meiner Kompo gar nicht oder nur auf den nicht transparenten Bereichen "abgefangen" wird.
Mindestens wo meine Kompo unsichtbar ist, soll MouseOver der "sichbaren Komponente dahinter" behandelt werden.
(Alternativ habe ich schon versucht, direkt auf den Canvas zu zeichnen. Das ist etwas ungünstig, da schlecht auf Veränderungen reagiert werden kann.)
stahli