Edit

[Михаил Юрьевич]

Подскажите с кодом: нужно edit ограничить
в наборе цыфр ,что бы набиралось не меньше
00 и не больше 24,а если больше или меньше
то выскакивал диалог,Вот написал но не работает:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
Var
rt:String;
begin
rt:=Form1.Edit1.Text;
if ((Key<'0')or(key>'9'))and(key<>#8) then
begin
Key:=#0;

end;

end;

procedure TForm1.Edit1Exit(Sender: TObject);
begin
if ((rt<'00')or(rt>'24')) then begin
showmessage('rrrrrrrrrrrrrrrrr');
end else
end;

[D-mon]

Ты сравниваешь строки а надо числа, вот и не работает.

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
Var
rt:String;
begin
rt:=Form1.Edit1.Text;
if ((Key<'0')or(key>'9'))and(key<>#8) then
begin
Key:=#0;

end;

end;

procedure TForm1.Edit1Exit(Sender: TObject);
begin
if ((StrToInt(rt)<StrToInt('00'))or(StrToInt(rt)>StrToInt('24'))) then begin
showmessage('rrrrrrrrrrrrrrrrr');
end else
end;

[JTG]

if ((Key<'0')or(key>'9'))and(key<>#8) then Key:=#0;

Нужно учитывать, что пользователи программ способны на любую подлость, в т.ч. правой кнопкой кликнуть в edit, вставить текст из буффера, и все проверки к чертям =)

Поэтому лучше вместо того кода написать в событии TForm1.OnCreate
SetWindowLong(Edit1.Handle, GWL_STYLE, GetWindowLong(Edit1.Handle, GWL_STYLE) + ES_NUMBER);

[Карась]

или просто сделать проверку в событии онЧеиндж едита.

[Xeaction]

На вкладке Win31, есть специальный компонент непомню название. Вот внём всё и делай для цифр, а потом переводи если нужно из Интригера в Текст ( IntToStr )