MDI + MDI-Clientformular: Button Zugriffstasten

[Garby]

Hallo,

ich würde einfach die OnKey... Ereignisse des MDIClient-Formulars an das Hauptformular weiterleiten.

Zu diesem Zweck musst du beim MDIClient die KeyPreview auf True Setzen:

Delphi-Quellcode:

procedure TfrmMDIChild.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Assigned(frmMDI.OnKeyDown) then
    frmMDI.OnKeyDown(Sender, Key, Shift);
end;

procedure TfrmMDIChild.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Assigned(frmMDI.OnKeyPress) then
    frmMDI.OnKeyPress(Sender, Key);
end;

procedure TfrmMDIChild.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Assigned(frmMDI.OnKeyUp) then
    frmMDI.OnKeyUp(Sender, Key, Shift);
end;