Zugriff auf zur Laufzeit erstellte Edit-Felder

[FriendOfDelphi]

Hallo Allerseits,

ich habe eine Frage zum Zugriff auf zur Laufzeit erstellte Edit-Felder.

Es besteht eine Prozedur die nach einem Tastendruck überprüft, ob ein gültiges Zeichen eingegeben wurde:

Delphi-Quellcode:

procedure TMyObjekt.CheckZeichen(Sender : TObject; var Key : Char);
begin
  //mach was
end;

Dem Editfeld wurde beim Erstellen/Create mitgeteilt, dass bei einem Tastendruck eben diese Prozedur augerufen werden soll:

Delphi-Quellcode:

Edit[88].OnKeyPress:=CheckZeichen;

Kann ich in der Prozedur auch überprüfen, was der aktuelle Inhalt des Editfeldes ist, bzw. komme ich über "Sender" an das Editfeld-Objekt, oder wie muss man das machen?

[DeddyH]

Delphi-Quellcode:

if Sender is TEdit then
  begin
    if TEdit(Sender).Text <> '' then
      ...
  end;

[edit] Hat man "etwas mehr" Code zwischen begin und end lohnt sich evtl. die Verwendung einer Zwischenvariablen.

Delphi-Quellcode:

var 
  Edit: TEdit;
begin
  //ggf. nötig, schaden kann es auf keinen Fall
  Edit := nil;
  if Sender is TEdit then
    begin
      Edit := TEdit(Sender);
      if Edit.Text <> '' then
        ...
    end;

[/edit]