Текущий архив: 2004.10.24;
Скачать: CL | DM;
Вниз
Исключение от MaskEdit Найти похожие ветки
← →
Andrey_ (2004-10-08 14:43) [0]Написал вот такую процедуру. При неправильном введении данных в MaskEdit должно выскакивать окно с моей надписью, а выскакивает окно вначале на английском, потом следом моё. Подскажите как избавиться от английского сообщения.
procedure TForm3.MaskEdit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState );
begin
if key=13 then
try
MaskEdit1.ValidateEdit;
Opisrf.Insert;
Button1.Enabled:=true;
dbmemo1.Text:=combobox1.Text+"-"+MaskEdit1.Text;
dbmemo1.Lines.Add("");
dbmemo1.Lines.Add("");
dbmemo1.SetFocus;
except Application.MessageBox("Сообщение", mb_iconwarning)
end;
← →
КаПиБаРа © (2004-10-08 14:57) [1]Andrey_ (08.10.04 14:43)
Обрабатывай исключение в Applocation.onError
← →
Andrey_ (2004-10-08 15:01) [2]С использованием компонента ApplicationEvents ? Или как-то иначе?
Страницы: 1 вся ветка
Текущий архив: 2004.10.24;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.042 c
