Einzelnen Beitrag anzeigen

MorrisF

Registriert seit: 3. Apr 2019
41 Beiträge
 
#7

AW: "OnClick" Ereignis in Frame auslösen

  Alt 3. Apr 2019, 15:11
Vielen Dank, für die vielen Antworten und die Hilfe!

Ich hab jetzt noch ein wenig rumprobiert und mich dazu entschlossen, den Frame in der Laufzeit(im Code) auf das Hauptformular einzufügen. Habe auch im der Frame-Unit die unnötige Prozedur auskommentiert und es geht! Vielen Danke euch allen!
Hier der Code den ich benutze, um um den Frame einzufügen und zu plazieren:
Delphi-Quellcode:
procedure TDialog_MainUnit.FormCreate(Sender: TObject);
var
  tmpFrame: TFrame_ButtonTest;
begin
  try
    tmpFrame := TFrame_ButtonTest.Create(Self);
    if Assigned(TFrame_ButtonTest(tmpFrame)) then
    begin
      TFrame_ButtonTest(tmpFrame).BtnClickMe.OnClick := FrameButtonClick;
      TFrame_ButtonTest(tmpFrame).Parent := PnlAllBack;
      TFrame_ButtonTest(tmpFrame).Align := alClient;
      TFrame_ButtonTest(tmpFrame).Show;
    end;
  except
    on e: Exception do
    begin
      ShowMessage('Fehler in FormCreate(): ' + e.Message);
    end;
  end;
end;
Vielen Dank nochmal für die schnelle Hilfe!

MFG
Morris F.
  Mit Zitat antworten Zitat