Zur Laufzeit erzeugten Button das OnClick-Ereignis ausführen

**NoName1**

Guten Tag,
Mit dem untenstehenden Code wird ein Panel mit einem Eingabefeld für die Erfassung eines Passwortes erstellt.
Die Anzeige des Passwortes soll durch einen Klick auf den Button sichtbar sein.
Wie kann dem Button pBPW die Procedure …ZeigePasswort zugewiesen werden?
Hat jemand einen Codeschnipsel aus dem dies ersichtbar ist?

markieren

Code:

			var

  pPanel: TAdvPanel;

  pTop: Integer;

  pEdtPW: TAdvEdit;

  pBPW: TAdvGlowButton;

begin

  Result := '';

  pTop := 16;

  pPanel := TAdvPanel.Create(Self);

  try

    pPanel.Width := 393;

    pPanel.Height := 56;

    pPanel.Color := TAppConstants.GetAppliFarbe;

    pPanel.BorderStyle := VCL.Forms.bsSingle;

   // EditField ----

    pEdtPW := TAdvEdit.Create(pPanel);

    pEdtPW.Top := pTop;

    pEdtPW.Width := 256;

    pEdtPW.Left := 80;

    pEdtPW.Font.Size := 12;

    pEdtPW.Font.Style := [fsBold];

    pEdtPW.EditType := etPassword;

    pEdtPW.LabelCaption := 'Passwort';

    pEdtPW.LabelTransparent := True;

    pEdtPW.LabelPosition := lpLeftCenter;

    pEdtPW.LabelFont.Size := 10;

    pEdtPW.LabelFont.Style := [fsBold];

    pEdtPW.Parent := pPanel;

    // Button ---

    pBPW := TAdvGlowButton.Create(pPanel);

    pBPW.Top := 16;

    pBPW.Height := pEdtPW.Height;

    pBPW.Width := pEdtPW.Height;

    pBPW.Left := pEdtPW.Left + pEdtPW.Width + 1;

    pBPW.Caption := '...';

    pBPW.Parent := pPanel;

    pBPW.Tag := 1;

    pBPW.OnClick // wie geht es hier weiter??

--------------------------------------------------------   

procedure TfrmFNCSchriftverkehr.ZeigePasswort(aEdit: TAdvEdit);

begin

    if aEdit.EditType = etPassword then

      aEdit.EditType := etString

    else

      aEdit.EditType := etPassword;

end;

Vielen Dank für Eure Hilfen im Voraus.

Zur Laufzeit erzeugten Button das OnClick-Ereignis ausführen

Zur Laufzeit erzeugten Button das OnClick-Ereignis ausführen

Forumregeln