здарова народ! вот решил сделать маску ввода для IP, как в винде. Утилитой Enbtn, которая показывает класс объекта над которым наводишь мышку, оказалось что все поле ввода для Ip в винде это Button. странно.
вот что наваял я.
| Код |
procedure TForm2.Edit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
var j,a:integer;
begin
inc(i);
if (i mod 3=0)and(i<>0)then begin
edit1.Text:=edit1.Text+'.';
sendmessage(edit1.Handle,wm_keydown,$23,0);
end;
end;
|
после ввода третьего символа в поле добавляется точка и так как после этого каретка откатывается в начало поля посылается сообщение клавиши end, но как сделать так чтоб точки были фиксироваными как в винде? |