Design-Problem bei mehreren Forms + Actions

[Volker Z.]

Hallo,

Du könntest Deine Paste-Action Execute / Update ergänzen:

Delphi-Quellcode:

procedure TMDIForm.PasteExecute (Sender : TObject);
begin
  FActiveEdit.PasteFromClipboard
end;

procedure TMDIForm.PasteUpdate (Sender : TObject);
begin
  FActiveEdit := nil oder ActiveMDICild.ActiveControl wenn TCustomEdit
  // Action Paste disabled wenn FActiveEdit nil
end;

Gruß