Textbox das Click ereignis hinzufügen.

[Taladan]

Zitat von Elvis:

Code:

public class ClickableTextBox : TextBox
{
   [Browsable(true)]
   public new event EventHandler Click
   {
      add { base.Click += value; }
      remove { base.Click -= value; }
   }
}

Kann mir jemand das mal für Pascal übersetzen. Ich bekomme das nicht hin

Ich habe das gemacht, funktioniert jedoch nicht, da das ereignis nirgends ausgelöst wird.

Delphi-Quellcode:

  OnClick = procedure(sender: System.Object; e: System.Windows.Forms.MouseEventArgs) of Object;

  TalasTextBox = class(System.Windows.Forms.Textbox)
  {$REGION 'Vom Designer verwalteter Code'}
  strict private
    /// <summary>
    /// Erforderliche Designervariable.
    /// </summary>
    Components: System.ComponentModel.Container;
    /// <summary>
    /// Erforderliche Methode zur Unterstützung des Designers -
    /// ändern Sie die Methode nicht mit dem Quelltext-Editor
    /// </summary>
    procedure InitializeComponent;
  {$ENDREGION}
  strict protected
    /// <summary>
    /// Ressourcen nach der Verwendung bereinigen
    /// </summary>
    procedure Dispose(Disposing: Boolean); override;
  private
    { Private-Deklarationen }
    FClick : OnClick;
  public
    constructor Create; overload;
    constructor Create(Container: System.ComponentModel.IContainer); overload;
  published
    [Category('Aktion'),
    Description('Tritt auf, wenn das Steuerelement geklickt wird'), 
    Browsable(true)]
    property Click : OnClick add FClick remove FClick;
  end;