TGraphicControl mit Tabstop / Focus

[ma2xx]

Auch wenn der initiale Beitrag doch schon einige Jahre alt ist, möchte ich doch mal lobend erwähnen, dass diese Basisklasse mir doch weitergeholfen hat.

Als Ergänzung noch die Focus-Umschaltung bei Left-Mouse-Click in das Control

Code:

procedure TFocusGraphicControl.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var InCtrl: Boolean;
begin
    inherited;
    if (Button=mbLeft)and Enabled then begin
        InCtrl:=(X>=0)and(X<ClientWidth)and(Y>=0)and(Y<=ClientHeight);
        if (InCtrl) then begin
            SetFocus();
        end;
    end;
end;

Danke
ma2xx