Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: CL | DM;

Вниз

TEdit для ввода IP   Найти похожие ветки 

 
GanibalLector ©   (2010-04-19 11:42) [0]

Когда-то видел пример того, как из TEdit сделать строку для ввода IP адреса. Реализация была без всяких масок. Если не ошибаюсь, то хэндлу TEdit что-то надо было послать.

Не могли бы напомнить  сабж. Заранее низкий поклон.


 
DVM ©   (2010-04-19 11:51) [1]


>  Если не ошибаюсь, то хэндлу TEdit что-то надо было послать.

Ошибкаешься имхо. MS свой контрол для ввода IPv4 адреса сделала из 4 Edit  - ов. По крайней мере еще недавно так было.


 
Leonid Troyanovsky ©   (2010-04-19 14:28) [2]


> GanibalLector ©   (19.04.10 11:42)  

> Не могли бы напомнить  сабж.

Не помню, чье:

uses
 comctrls, commctrl;

type

TIPEdit = class(TWinControl)
protected
 procedure CreateParams(var Params: TCreateParams); override;
 procedure WMGetDlgCode( var Message:TWMGetDlgCode); message WM_GETDLGCODE;
end;

procedure TIPEdit.CreateParams(var Params: TCreateParams);
begin
 InitCommonControl(ICC_INTERNET_CLASSES );
 inherited CreateParams(Params);
 CreateSubClass(Params, WC_IPADDRESS);
 Params.Style := Params.Style or WS_TABSTOP;
end;

procedure TIpEdit.WMGetDlgCode;
begin
  inherited;
  Message.Result := Message.result or DLGC_WANTARROWS;
end;

var Edit1: TIPEdit;

procedure TForm1.FormCreate(Sender: TObject);
begin
 if not Assigned(Edit1) then begin
   Edit1 := TIPEdit.Create(Self);
 with Edit1 do
   begin
     Name := "Edit1";
     Parent := Self;
     Left := 24;
     Top := 16;
     Width := 121;
     Height := 21;
     Tabstop := True;
 end;
 SendMessage(Edit1.Handle,IPM_CLEARADDRESS,0,0);
 SendMessage(Edit1.Handle,IPM_SETADDRESS,0,MAKEIPADDRESS(127,0,0,1));
end;
end;

--
Regards, LVT.


 
Б   (2010-04-19 15:14) [3]

Где-то тут.
http://rouse.drkb.ru/network.php#tcpstat


 
GanibalLector ©   (2010-04-19 23:05) [4]

Спасибо!



Страницы: 1 вся ветка

Текущий архив: 2010.08.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.198 c
15-1270633433
И. Павел
2010-04-07 13:43
2010.08.27
Порекомендуйте компонент для шифрования


3-1243786232
Serjio77
2009-05-31 20:10
2010.08.27
Ошибка отображения данных в результате sql запроса в BDE


4-1232589633
brother
2009-01-22 05:00
2010.08.27
Клас для получения информации о системном трее


2-1268837432
Berger
2010-03-17 17:50
2010.08.27
Как скопировать число из памяти в переменную


15-1261482460
Piter
2009-12-22 14:47
2010.08.27
Win32/Kryptik троян подцепил