Einzelnen Beitrag anzeigen

Konchulio

Registriert seit: 16. Apr 2003
9 Beiträge
 
Delphi 2005 Professional
 
#8

Re: An alle TAction Kracks - TDataSetAction reagieren nicht!

  Alt 27. Jun 2006, 14:36
ju habe ich schon versucht keinen Fehler gefunden.

Ich nehme an das das Formular das aus der DLL dynamisch erzeugt wird irgendwie keinen WinControl bekommt oder die Actions diesen nicht finden können. Hab es schon mit der TCustomForm Funktion "CMActionexecute" bzw. "CMActionexecute" im Hauptformular und in den Formularen die in der DLL sind, probiert --> kein Änderung der Situation!!!

Mist

Hier die beiden Proceduren:

Info: das Gleiche macht auch die "CMActionexecute" Prozedur.

Delphi-Quellcode:
procedure Tform1.CMActionupdate(var Message: TMessage);
var
  bPerformed : Boolean;
  i : Integer;
  DockForm : TfrmFamilyFormExt;
begin

  bPerformed := False;

    for i := 0 to pred(Application.ComponentCount) do begin
      if Application.Components[i] is TForm then begin
        DockForm := TForm(Application.Components[i]);
        if DockForm.Active then begin
          Message.Result := DockForm.Perform(Message.Msg,0,Message.LParam);
          bPerformed := Message.RESULT = S_OK;
         
          if bPerformed then exit;
        end;
      end;
    end;

  if not bPerformed then inherited;
end;
  Mit Zitat antworten Zitat