button soll inaktiv sein

[freak4fun]

Hallo ,

Delphi-Quellcode:

procedure TForm1.CheckControlStates(Sender: TObject);
begin
  Button1.Enabled := (Edit1.Text <> '') and
                     (Edit2.Text <> '') and
                     (Radiogroup1.ItemIndex <> -1);
end;

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
  CheckControlStates(Self);
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
  CheckControlStates(Self);
end;

procedure TForm1.Edit2Change(Sender: TObject);
begin
  CheckControlStates(Self);
end;

MfG
freak