Código Delphi [-] implementation uses TypInfo; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin if IsPublishedProp (Button1, 'Visible') then begin SetPropValue (Button1, 'Visible',false); end; end;
implementation uses TypInfo; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin if IsPublishedProp (Button1, 'Visible') then begin SetPropValue (Button1, 'Visible',false); end; end;