14.04.2010, 03:17
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
С нами:
8850305
Репутация:
259
|
|
вот это в OnKeyPress() Edit'a
PHP код:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var m: set of char;
begin
m := ['0'..'9'];
if ord(key) = 13 then edit2.SetFocus;
if not (key in m) then key := chr(0);
end;
или вот это в OnShow() формы
PHP код:
procedure TForm1.FormShow(Sender: TObject);
var oldlong: integer;
begin
oldlong := GetWindowLongA(edit1.Handle, GWL_STYLE);
SetWindowLongA(edit1.Handle, GWL_STYLE, oldlong or ES_NUMBER);
end;
суть будет одна и та же! пользуйся |
|
|