Edit mit variabler Nummer

[traudl]

Ich habe jetzt ein onKeypress Ereignis geschrieben, weiß aber nicht wie ich es dem Editfeld zuweisen kann.

Delphi-Quellcode:

procedure TForm6.Edit_neg(Sender: TObject; var Key: Char);
begin
    If not(key in [#48..#57,#8,#44..#46])
    then key := #0;
    If Key = #44 then Key := #46;
end;

weil ich kann in die Felder eingeben was ich will und nicht nur Zahlen.

Hat jemand eine Idee.

Gruß Udo

[Luckie]

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure MyEditKeyPress(Sender: TObject; var Key: Char);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  EditArray: array[0..4] of TEdit;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to length(EditArray) - 1 do
  begin
    EditArray[i] := TEdit.Create(Form1);
    EditArray[i].Parent := Form1;
    EditArray[i].Name :='Edit'+IntToStr(i);
    EditArray[i].Left := 10;
    EditArray[i].Top := i*(EditArray[i].Height+10)+10;
    EditArray[i].Text := EditArray[i].Name;
    EditArray[i].OnKeyPress := MyEditKeyPress;
    EditArray[i].Tag := i;
  end;
end;

procedure TForm1.MyEditKeyPress(Sender: TObject; var Key: Char);
begin
  if Sender is TEdit then
    ShowMessage('Edit'+IntToStr((Sender as TEdit).Tag));
end;

Gleich mit der Mäöglichkeit zu entscheiden, welches Edit es ist.

[traudl]

Hallo Michael,

Danke Dir. Ich komme mir echt hilflos vor, daß ich jedesmal fragen muss. Aber nach 3 Std. probieren ist mir echt nix mehr eingefallen.

Gruß Udo

[traudl]

Hallo ich noch mal. Ich möchte daß das Editfeld den Focus solange hat bis der User was eingibt.
Jetzt will er ein Objekt. Was ich aber eingeb geht nicht.

Code:

procedure KeepFocus(e: TEditNew);
var s: String;
begin
    s:= e.Text;
    If s = ''
    then begin
    TextStart;
    e.SetFocus;
    end;
end;

procedure TForm6.EditExit(Sender: TObject);
begin
     KeepFocus((Sender as TEditNew))
end;

Code:

    { Tischeingabefelder }
  for i := 0 to length (Edit_L) - 1
    do begin
    Edit_L[i] := TEditNew.Create(Self);
    Edit_L[i].Parent := Self;
    Edit_L[i].Text := 'Edit_L'+IntToStr(i);
    Edit_L[i].Name :='Edit_L'+IntToStr(i);
    Edit_L[i].Left := 184;
    Edit_L[i].Height := 24;
    Edit_L[i].Width := 45;
    Edit_L[i].Font.Style := [fsBold];
    Edit_L[i].Font.Name := 'Arial';
    Edit_L[i].Font.Height := 15;
    Edit_L[i].TabStop := True;
    Edit_L[i].TabOrder := i;
    Edit_L[i].OnExit := EditExit();

ich weis wirklich nicht wie ich das tun soll. Bei einem normalen Edit Feld wird das onExit Event anders ausgewertet, ich weis aber nicht wie. Hat jemand ne Idee ???



Gruß Udo

[traudl]

So ein Wochenende ist doch was feines. Ich habe nur die Klammer weggelassen und jetzt geht es.