Hallo Marabu,
erstmal Danke für die Antwort. Wie ich in meinem 2ten Posting hier geschrieben habe, fiel mir auf das ich in meinem ControlDateItem, MouseDown auch einfach nur überschreiben kann.
Delphi-Quellcode:
TControlDateItem = class(TGraphicControl)
private
procedure MouseDown(Button: TMouseButton; Shift: TShiftState;X, Y: Integer); override;
...
end;
Die procedure MouseDown wird auch aufgerufen reagiert allerdings nur auf mittlere und rechte Maustaste.
Delphi-Quellcode:
procedure TControlDateItem.MouseDown(Button: TMouseButton; Shift: TShiftState; X,
Y: Integer);
begin
inherited;
ShowMessage('Mouse Down');
end;
Das verwirrt mich etwas.
Mein erster Gedanke war, dass ich es genauso lösen müsste wie bei MouseOver, MouseLeave. Ich denke aber inzwischen das brauche ich hier nicht da es ja, wenn auch nicht mit der linken Maustaste funktioniert.
Gruß Uwe