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?