Wie kann ich ein Button deaktivieren, dessen name in Edit.te

[Christian Seehase]

Moin DelphiTurbo,

sicherer wäre es erst zu prüfen, ob der Button überhaupt gefunden wurde, bevor eine Eigenschaft verwendet wird.

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);

var
  Btn: TControl;

begin
  Btn := TControl(FindComponent('BitBtn' + Edit1.Text));
  if Assigned(btn) then btn.enabled := False;
end;

So vermeidest Du eine Access Violation, falls in Edit1.Text ein Wert steht, für den es keinen Button gibt.