Textbox das Click ereignis hinzufügen.

[Taladan]

Wie man einer Textbox ein Click ereignis zur Laufzeit hinzufügt, ist mir bekannt. Doch da es sich um viele viele Textboxen handelt, möchte ich gerne eine eigene Komponente schreiben, wo man dies bereits über den Objectinspektor machen kann. Wie mache ich das?

Das ich dieses Erben muß ist mir klar, aber er findet angeblich nie etwas in der Basisklasse. Hier mein bisheriger Versuch

Delphi-Quellcode:

unit CTalasTextBox;

interface

uses
  System.Windows.Forms, System.Drawing, System.Collections, System.ComponentModel;

type

  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;
    procedure OnClick(sender: System.Object; e: System.EventArgs); override;
  private
    { Private-Deklarationen }
  public
    constructor Create; overload;
    constructor Create(Container: System.ComponentModel.IContainer); overload;
  published
    Property Click : OnClick;
  end;

implementation

uses
  System.Globalization;

{$AUTOBOX ON}

{$REGION 'Vom Windows Form-Designer erzeugter Code'}
/// <summary>
/// Erforderliche Methode zur Unterstützung des Designers -
/// ändern Sie die Methode nicht mit dem Quelltext-Editor
/// </summary>
procedure TalasTextBox.InitializeComponent;
begin
  Self.Components := System.ComponentModel.Container.Create;
end;
{$ENDREGION}

constructor TalasTextBox.Create;
begin
  inherited Create;
  //
  // Erforderlich für die Unterstützung des Windows Forms-Designers
  //
  InitializeComponent;
  //
  // TODO: Fügen Sie nach dem Aufruf von InitializeComponent Konstruktorcode hinzu.
  //
end;

constructor TalasTextBox.Create(Container: System.ComponentModel.IContainer);
begin
  inherited Create;
  //
  // Erforderlich für die Unterstützung des Windows Forms-Designers
  //
  Container.Add(Self);
  InitializeComponent;
  //
  // TODO: Fügen Sie nach dem Aufruf von InitializeComponent Konstruktorcode hinzu.
  //
end;

procedure TalasTextBox.Dispose(Disposing: Boolean);
begin
  if Disposing then
  begin
    if Components <> nil then
      Components.Dispose();
  end;
  inherited Dispose(Disposing);
end;

end.

[Khabarakh]

Mir ist nicht wirklich klar, was du machen willst. Man kann doch Events schon im OI zuweisen und wozu willst du Click redefinieren?
Click ist in TextBoxBase so definiert:

Code:

[EditorBrowsable(EditorBrowsableState.Always), Browsable(true)]
public event EventHandler Click; // von Control.Click

[Taladan]

Richtig. Aber bei einer TextBox gibt es das Event Click im Objectinspekotor nicht. Dort gibt es nur DoubleClick, aber kein Click. Zuordnen kann man jedoch ein Click verhalten wärend der Laufzeit für eine Textbox. Warum zeigt der OI dieses Event nicht an?

[Neutral General]

Zitat:

Zitat von Taladan

Richtig. Aber bei einer TextBox gibt es das Event Click im Objectinspekotor nicht. Dort gibt es nur DoubleClick, aber kein Click. Zuordnen kann man jedoch ein Click verhalten wärend der Laufzeit für eine Textbox. Warum zeigt der OI dieses Event nicht an?

Naja im Notfall leitestest du halt schnell ne Komponente von der Textbox ab und schreibst in den published Teil einfach:

Delphi-Quellcode:

published
 property OnClick;

das müsste wenn ich mich nicht irre ohne Probleme gehen... (und erspart viel Code :D)

EDIT: Ich habe grad das Gefühl das ich ziemlich sicher Mist geredet hab :oops: :mrgreen:

[Taladan]

Bekomme zwei Fehlermeldungen.
'OnClick' wurde vorher nicht als Property deklariert
Read und Write-Klausel erwartet, aber 'end' gefunden

[Khabarakh]

Zitat:

Zitat von Taladan

Richtig. Aber bei einer TextBox gibt es das Event Click im Objectinspekotor nicht.

Du hast Recht, allerdings nur im alten 1.1 Framework. Das konnte ich wirklich nicht ahnen :stupid: .

Zitat:

'OnClick' wurde vorher nicht als Property deklariert

Stimmt, das Event heißt schließlich Click.

[Elvis]

Hmmm ganz schön viel Code um einfach ein Event mit epnem anderen Attribut zu versehen.... :gruebel:

Code:

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

Es gibt übrigens einen guten Grund, warum das Event für TextBox im Designer versteckt wurde:
Es gibt nämlich kaum gute Gründe, warum man das Event für TextBox im Designer besetzen sollte. (Mir fällt nichtmal ein einziger ein... :gruebel: )

btw: Dass es wirklich so easy geht sieht du wenn das Li.. äh wenn du auf den screenie schaust. ;)

[faux]

Also so leid es mir tut, aber ich verstehe den Sinn darin nicht.
Ich habe auch bei einer System.Windows.Forms.TextBox ein Click - Event.

@Elvis:
Wie hast du das gemacht, dass du den Code in Zeile 9 bekommst, ohne dass dir der Designer entgegen springt? Eine zweite Datei angelegt?
Habs gerade im Reiter gesehen: ClickableTextBox.cs

Grüße
Faux

[Khabarakh]

Zitat:

Zitat von faux

Also so leid es mir tut, aber ich verstehe den Sinn darin nicht.
Ich habe auch bei einer System.Windows.Forms.TextBox ein Click - Event.

Wie ich oben schon geschrieben habe, erst ab 2.0 lässt sich das Event im OI finden.

[Elvis]

Zitat:

Also so leid es mir tut, aber ich verstehe den Sinn darin nicht.
Ich habe auch bei einer System.Windows.Forms.TextBox ein Click - Event.

:shock: Stümmt in 2.0 Ist TextBoxBase.Click nicht mehr Browsable(false)! Warum auch immer...

Edit: Nur um sicher zugehen habe ich mir gerade nochmal das alte #d gesaugt und es damit probiert: Es klappt natürlich. ;)

Zitat:

Wie hast du das gemacht, dass du den Code in Zeile 9 bekommst, ohne dass dir der Designer entgegen springt? Eine zweite Datei angelegt?

Indem ich es einfach tippe? :gruebel: Natürlich springt bei dir der Designer an, wenn du bei Componenten tandardmäßig den Designer starten lässt.(btw, ekelhafte default Einstellung im VS...)