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?

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.

[himitsu]

pBPW.OnClick := NameDeinerMethodeOderKlassenMethode; , welche zu z.B. in TfrmFNCSchriftverkehr deklariert hast.

Delphi-Quellcode:

type
  TfrmFNCSchriftverkehr = class(TForm)
  ...
  private
    procedure MeinClickEreigniss(Sender: TObject);
  end;

Und per Code Ausführen
pBPW.Click;

[DeddyH]

Spendiere Deinem Formular eine Methode mit der Signatur des OnClick-Events des Buttons. Diese kannst Du dann zuweisen. Ich vermute mal, dass das ein normaler TNotifyEvent ist, also könnte das so aussehen:

Delphi-Quellcode:

type
  TDeinForm = class(TForm)
  …
    procedure DoShowPassword(Sender: TObject);
  …
  end;

…

procedure TDeinForm.DoShowPassword(Sender: TObject);
begin
  // Code
end;

…
  
  DeinButton.OnClick := DoShowPassword;

[EdAdvokat]

Delphi-Quellcode:

procedure TForm1.btnKeylockClick(Sender: TObject);
begin
  if (edtKey.PasswordChar='*') then
  begin
   (edtKey.PasswordChar:=#0)end else
    edtKey.PasswordChar:='*';
end;

sicher nicht die hochprofessionellste Lösung

[mmw]

Hallo,

noch eine Möglichkeit.

Delphi-Quellcode:

type
  TmypBPW = class
    private
    procedure OnClick(Sender: TObject);
  end;

var
   mypBPW:TmypBPW;

procedure TmypBPW.OnClick(Sender: TObject);

begin
 if advEdit1.EditType = etPassword then
      advEdit1.EditType := etString
    else
      advEdit1.EditType := etPassword;
end;


var
  pPanel: TAdvPanel;
  pTop: Integer;
  pEdtPW: TAdvEdit;
  pBPW: TAdvGlowButton;
 
begin
 .....
 .....
 pBPW.OnClick:=mypBPW.OnClick;                  // wie geht es hier weiter??

Gruß

[himitsu]

Was soll das doppelte := darstellen?

NEIN, jedenfalls nicht, wenn es in mypBPW keine Instanz gibt (abgesehn von der den beiden blöden globalen Variablen),
aber für gibt es ja was von Ratiopharm vom Hersteller.

Delphi-Quellcode:

type
  TmypBPW = class
  private
    class procedure DoClick(Sender: TObject);
  end;

pBPW.OnClick := TmypBPW.DoClick;

Und OnClick würde ich solche Prozeduren sowieso nicht.
Bezeichner für Event-Handler vs. Bezeichner für Event-Methoden.

Da hier Button und Edit in der Form liegen, gehört das Event dafür auch in diese Klasse rein.
Wenn aber dennoch in einer anderen Klasse, dann werden NIEMALS die globalen Variablen verwendet, sondern diese Instanz bekommt Zeiger auf diese Komponenten übergeben und/oder Ereignisse für den Rückruf.

[mmw]

Zitat von himitsu:

Was soll das doppelte := darstellen?

NEIN, jedenfalls nicht, wenn es in mypBPW keine Instanz gibt (abgesehn von der den beiden blöden globalen Variablen),
aber für gibt es ja was von Ratiopharm vom Hersteller.

Delphi-Quellcode:

type
  TmypBPW = class
  private
    class procedure DoClick(Sender: TObject);
  end;

pBPW.OnClick := TmypBPW.DoClick;

Und OnClick würde ich solche Prozeduren sowieso nicht.
Bezeichner für Event-Handler vs. Bezeichner für Event-Methoden.

Da hier Button und Edit in der Form liegen, gehört das Event dafür auch in diese Klasse rein.
Wenn aber dennoch in einer anderen Klasse, dann werden NIEMALS die globalen Variablen verwendet, sondern diese Instanz bekommt Zeiger auf diese Komponenten übergeben und/oder Ereignisse für den Rückruf.

hallo,
das war ein Fehler beim kopieren.

der code muss natürlich entsprechend dem Programm angepasst werden.

Gruß