Eingabebeschränkung f. eine Gruppe EditControls u. m.

[Sharky]

Hai Emilio,

eventuell ist es in diesem Fall auch nicht falsch mit einer TObjectList zu arbeiten und dort die Componenten um die es geht einzutragen.

Delphi-Quellcode:

uses
 Contnrs;

var
  editlist : TObjectList; // Das natürlich in den privat Abschnitt der TForm.

procedure TForm1.FormCreate(Sender: TObject);
begin
  editlist := TObjectList.Create;
  editlist.Add(Edit1);
  editlist.Add(Edit2);
  editlist.Add(Edit3);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  editlist.Free;
end;

procedure TForm1.CheckEdits;
var
  ndx: Integer;
begin
  for ndx := 0 to Pred(EditList.Count) do
  begin
    with (EditList.Items[ndx] as TEdit) do
    begin
      if (Text = '') then
      begin
        ShowMessage('blubb');
        Color := clred;
        SetFocus;
        break;
      end;
    end;
  end;
end;

procedure TForm1.AllEditOnChange(Sender: TObject);
begin
  with (Sender as TEdit) do
  begin
    if (text <> '') then
    begin
      Color := clWhite;
    end;
  end;
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
  CheckEdits;
end;