Código Delphi [-]procedure TFManu.Button1Click(Sender: TObject); begin Self.Caption:= 'FAuto - Button1';; // FManu.caption := 'FAuto - Button1'; end; procedure TFManu.Button2Click(Sender: TObject); begin self.caption := 'FAuto - Button2'; // FManu.caption := 'FAuto - Button2'; end;
procedure TFManu.Button1Click(Sender: TObject); begin Self.Caption:= 'FAuto - Button1';; // FManu.caption := 'FAuto - Button1'; end; procedure TFManu.Button2Click(Sender: TObject); begin self.caption := 'FAuto - Button2'; // FManu.caption := 'FAuto - Button2'; end;