MouseDown -> SetFocus

[Alter Mann]

Hallo alle Miteinander

Innerhalb einer Komponente soll auf die Auswahl mit der Maus reagiert werden,
um entsprechend den Focus zu zeichnen. Dazu nutze ich folgenden Code:

Delphi-Quellcode:

procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  SetFocus;
  inherited MouseDown(Button, Shift, X, Y);
end;

Nun zu meinem Problem:
Setze ich auf SetFocus eine Breakpoint, läuft alles so wie es soll. Ist der Breakpoint
nicht mehr gesetzt, passiert rein garnichts. Wie läßt sich dieses Verhalten erklären?