Исключение от 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 ? Или как-то иначе?

Исключение от MaskEdit Найти похожие ветки