Button einer anderen unit Enabled auf false setzen

[dominikkv]

überprüf zuerst mal ob senderform1 überhaupt ein button ist:

Delphi-Quellcode:

procedure TForm2.SchlieseForm2(sender : TObject); 
begin 
  if TButton(sender) = BOK then 
  begin
    if (SenderForm1 is TButton) then
      (SenderForm1 as TButton).Enabled := false else 
      showmessage('nÖ!');
  end; 
end;