Hallo,

ich mache gerade eine Komponente, die im Prinzip aus einer Scrollbox besteht in die etwas hineingemalt wird. Mein Problem ist jetzt aber, dass ich auf Tastaturereignisse reagieren muss und dazu brauche ich den Fokus. Aber weder meine ScrollBox noch mein Bild können den Fokus erhalten. Gibt es hier eine Art Dummy-Komponente, die unsichtbar ist und den Fokus stattdessen erhalten kann? Oder gibt es hier eine andere Möglichkeit?

Leider komme ich hier einfach nicht weiter...
Ich freue mich schon auf eure Antworten

Grüße
blablab

Was spricht gegen TForm.KeyPreview = true + TForm.OnKeyUp/Press/Down?

Ich möchte ja eine Komponente programmieren und die hat ja eigentlich nix mit der darüberliegenden Form zu tun. Ich weiß nicht ob ich da das KeyPreview und OnKeyDown der Form verändern kann und wenn ja ist es doch ein bisschen komisch wenn mir die Komponente das einfach überschreibt. Denn es könnte ja sein, dass ich das OnKeyDown der Form selber noch brauche.

Du kannst auch Deiner Komponente explizit mit SetFocus den Fokus zuweisen (z.B. im MouseDown) und in KeyDown die Tastatureingaben abfragen.
In meiner Panelableitung setze ich das so um.

zusammenfalten · markieren

Delphi-Quellcode:

  TodPanel = class(TPanel)
  private
  protected
    procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
    procedure KeyDown(var Key: Word; Shift: TShiftState); override;
...

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

procedure TodPanel.KeyDown(var Key: Word; Shift: TShiftState);
begin
  if Key = VK_DELETE then
    Delete
  else if Key = VK_RETURN then
    ShowForm
  else
    inherited;
end;

Wenn Du eine eigene Komponente programmieren willst, leite diese einfach von TWinControl ab (TPanel ist auch ein TWinControl-Derivat).

[QUOTE=blablab;1131171]Ich möchte ja eine Komponente programmieren/QUOTE] Geht TApplicationEvents nicht?
Du musst ja die Tastatureingaben VOR allen anderen bekommen. Eine Komponente 'TFocus' wird sich auch neben TEdit-Feldern behaupten müssen, die gerade den Focus besitzen. Also kann es nur darüber gehen, die Nachrichten vorher abzugreifen und transparent zu verarbeiten.

Wenn Du die Nachrichten nur auswerten willst, wenn das Bild angeklickt ist, dann lege das, wie Stahli sagte, auf ein modifiziertes Panel.

Zitat von Thom:

Wenn Du eine eigene Komponente programmieren willst, leite diese einfach von TWinControl ab (TPanel ist auch ein TWinControl-Derivat).

die ScrollBox ist IMHO auch von TWinControl abgeleitet.
Ich würde WMMouseActivate überschreiben so in der Art:

markieren

Delphi-Quellcode:

procedure TMyScrollBox.WMMouseActivate(var Message: TWMMouseActivate);
begin
  inherited;
  if not (csDesigning in ComponentState) and CanFocus then
    SetFocus;
end;

Frank

Ich war zuerst etwas verwirrt, weil ich auch mit der Tab-Taste den Fokus nicht erhalten habe, aber mit TabStop = True gehts. Und dann fehlte mir ja nurnoch das Selectieren bei MouseDown.

Jetzt klappts wunderbar, vielen Dank!!!