Button einer anderen unit Enabled auf false setzen

**winkelmesser**

Hallo und ein Frohes neues Jahr an alle

In der ersten Form benutze ich

Delphi-Quellcode:

			var

  Form1: Tform1;

  SenderForm1 : TObject;

und

markieren

Delphi-Quellcode:

			procedure TForm1.Button(Sender: TObject);

begin

  SenderForm1 := TButton(sender);  

  form2.ShowModal;

end;

In der zweiten Form

markieren

Delphi-Quellcode:

			procedure TForm2.SchlieseForm2(sender : TObject);

begin

  if TButton(sender) = BOK then

  begin

    TButton(SenderForm1).Enabled := false;

  end;

end;

bekomme die Fehlermeldung Zugriffsverletzung

TButton(SenderForm1).Enabled := false;

mfg Winkelmesser

Button einer anderen unit Enabled auf false setzen

Button einer anderen unit Enabled auf false setzen

Forumregeln