amxmodx/editor/studio/UnitfrmConnGen.pas
2005-08-26 18:29:39 +00:00

41 lines
776 B
ObjectPascal
Executable File

unit UnitfrmConnGen;
interface
uses
SysUtils, Windows, Messages, Classes, Graphics, Controls,
StdCtrls, ExtCtrls, Forms, SpTBXEditors, TntStdCtrls, TBXDkPanels,
SpTBXDkPanels;
type
TfrmConnGen = class(TForm)
lblState: TLabel;
pnlSettings: TPanel;
lblHost: TLabel;
txtHost: TSpTBXEdit;
lblPort: TLabel;
txtPort: TSpTBXEdit;
lblProtocol: TLabel;
cboProtocol: TSpTBXComboBox;
cmdOK: TSpTBXButton;
cmdCancel: TSpTBXButton;
lblSocketName: TLabel;
txtName: TSpTBXEdit;
procedure txtNameKeyPress(Sender: TObject; var Key: Char);
end;
var
frmConnGen: TfrmConnGen;
implementation
{$R *.DFM}
procedure TfrmConnGen.txtNameKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #32 then
Key := #0;
end;
end.