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

:thumb: :coder:

[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 ???

:oops:

Gruß Udo

[traudl]

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

:dancer2: