Auf TPaintBox schreiben / Tasten abfangen

[Bummi]

ein bisschen tricksen in der Komponente kannst Du schon

Delphi-Quellcode:

procedure TMyKomp.MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
    if not Assigned(FPanel) then
      begin
       FPanel := TPanel.Create(self);
       FPanel.OnKeyPress := MyOnKeyPress;
       FPanel.Width := 0;
       FPanel.Height := 0;
       FPanel.parent := Parent;
      end;
    FPanel.SetFocus;
    Fx := X;
    Fy := Y;
end;