Focus auf SubForms mittels Shape visualisieren-Wie?

[torud]

Hallo Wissende,

auf meinem MainForm liegt eine Scrollbox auf der ich dynamisch mehere UnterFormulare erzeuge. Alles gut soweit. Auf jedem dieser Formulare habe ich im Hintergrund ein Shape liegen. Klicke ich nun auf eines der Formulare, soll das "aktive" Formular einen Roten Rand im Shape erhalten und alle anderen sollen sich Farbtechnisch wieder auf Silver stellen.

Bisher mache ich das so:

Delphi-Quellcode:

procedure Tdt_panel.pan_mainEnter(Sender: TObject);
begin
  shp_border.Appearance.Pen.Color := clRed;
end;

procedure Tdt_panel.pan_mainExit(Sender: TObject);
begin
  shp_border.Appearance.Pen.Color := clSilver;
end;

Das ansich funktioniert wunderbar - allerdings nur dann, wenn ich wirklich in ein Control auf einem der Formulare klicke. Klicke ich nur auf das Panel oder das Shape im Hintergrund, passiert rein gar nichts. Gibt es dafür Abhilfe?

Weiters habe ich auf dem Formular, welches ich als Grundlage für das dynamische Erzeugen benutze, einen ActionManager liegen, dem ich eine TAction samt ShortCut zugewiesen habe. Leider wird das Event NIE ausgelöst. Kann es sein, dass das so nicht geht, wenn ich mehere Formulare dieser Art habe?

[Jumpy]

Kann man nicht im OnClick des Panels dafür sorgen, dass der Cursor ins erste Control auf dem Panel wandert, und so den Focus in ein Control des Panels holt.

[stahli]

Mal als alternative Idee:
Satty67 hat mal ein Panel mit Loch vorgestellt. Das könnte auch gut für Deine Zwecke taugen. Z.B. mit einem Timer könnte es fließend über das fokussierte Form "rutschen".

Ansonsten würde ich mich Jumpy anschließen.

[torud]

Zitat von Jumpy:

Kann man nicht im OnClick des Panels dafür sorgen, dass der Cursor ins erste Control auf dem Panel wandert, und so den Focus in ein Control des Panels holt.

Jo, kann man. Auf die idee bin ich leider nicht gekommen. Habs so gemacht und es funzt:

Delphi-Quellcode:

  //klick auf ein stringgrid simulieren
  grd_h1.Perform(WM_LBUTTONDOWN,10,10);
  grd_h1.Perform(WM_LBUTTONUP,10,10);

Nun noch zur Frage, warum die ShortCuts auf den eingebetteten Formularen nicht funktionieren. Ich suche hier mal weiter.