¿Quién sabe cómo extraer el editor de IP de la dirección IP o qué componente?

← →
Alexander (2001-12-19 14:58) [0]

← →
Юрий Федоров (2001-12-19 15:24) [1]

TMaskEdit?

← →
Alexander (2001-12-19 15:26) [2]

Нет, так слишком коряво - получается 192.004.003.025 и все нули надо вводить, а это не очень хорошо

← →
Anatoly Podgoretsky (2001-12-19 16:20) [3]

Поставь дяром четыре TEditи три TLabel если надо индикация точки

← →
Alexander (2001-12-19 16:23) [4]

Да я сейчас так и делаю, но хотелось покрасивее.
А как можно в Edit-е выравнивание по центру сделать?

← →
nikkie (2001-12-19 18:02) [5]

могу предложить такой вариант. не работают стрелочки, но может кто подскажет - по идее это должно быть легко подправить (только бы знать как :))

unit IPEdit;

interfaz.

usos
CommCtrl, ComCtrls, Controls, StdCtrls;

tipo
TIPEdit = class(TCustomEdit)
protegido
procedimiento CreateParams (var Params: TCreateParams); anular
fin;

implementación

procedure TIPEdit.CreateParams(var Params: TCreateParams);
comenzar
heredado CreateParams (Params);
InitCommonControl(ICC_INTERNET_CLASSES);
CreateSubClass(Params, WC_IPADDRESS);
fin;

fin.

¿Quién sabe cómo extraer el editor de IP de la dirección IP o qué componente? Encontrar ramas similares