Auf TPaintBox schreiben / Tasten abfangen

[Root2k]

@Bummi:
Danke für den Code. So werde ich es vermutlich machen.

Da ich aber eine eigene Komponente entworfen habe (abgeleitet von PaintBox) muss ich über die Form/EXE das Handling stuern. Am liebsten wäre es mir aber, wenn ich die Logik direkt in der Komponente verankern könnte. Dann funktioniert das mit dem Panel wohl nicht (meiner Meinung nach), oder kann ich das irgendwie mit in die Komponente einbauen?

--
Edit:
Sorry übrigens für den doppelten Eintrag. Hätte eigentlich den letzten Eintrag editieren sollen.

[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;

[Root2k]

Hm, nicht schlecht. Könnte klappen

Danke dir!!

--

Edit:
Funktioniert wunderbar.
Danke für die Hilfe!

*closed*