Текущий архив: 2007.03.25;
Скачать: CL | DM;
Вниз
Отключение кнопок Найти похожие ветки
← →
Ivolg © (2007-03-01 16:00) [0]Привет. Как можно отключить использование кнопок: Space и Backspace в Edit ?
← →
S@shka © (2007-03-01 16:04) [1]Может самому обрабатывать событие OnKeyDown в Edit и если код кнопки соответствует определенным кодам - удалять ввод
← →
Ega23 © (2007-03-01 16:12) [2]
procedure TCarColorsForm.eCarColOrdKeyPress(Sender: TObject;
var Key: Char);
begin
if (Key in [" ", #8]) then Key := #0;
end;
← →
S@shka © (2007-03-01 16:14) [3]Потом проблемы не будет с разбором строки с #0 -
ведь все сто после #0 в визуальных компонентах не отображается
TempString = "AAA"+#0+"BBBB";
Edit1.Text := TempString;
В Edit увидим AAA
← →
Elen © (2007-03-01 16:22) [4]
> Потом проблемы не будет с разбором строки с #0 -
> ведь все сто после #0 в визуальных компонентах не отображается
А ты попробуй. ;)
← →
Ega23 © (2007-03-01 16:32) [5]
> S@shka © (01.03.07 16:14) [3]
Для особо продвинутых сообщаю:
function TWinControl.DoKeyPress(var Message: TWMKey): Boolean;
var
Form: TCustomForm;
Ch: Char;
begin
Result := True;
Form := GetParentForm(Self);
if (Form <> nil) and (Form <> Self) and Form.KeyPreview and
TWinControl(Form).DoKeyPress(Message) then Exit;
if not (csNoStdEvents in ControlStyle) then
with Message do
begin
Ch := Char(CharCode);
KeyPress(Ch);
CharCode := Word(Ch);
if Char(CharCode) = #0 then Exit;
end;
Result := False;
end;
← →
S@shka © (2007-03-01 16:41) [6]
> Для особо продвинутых сообщаю
Серьезное замечание. Интересно "особо продвинутых" - это о ком ? )))
Особенно умиляет
if Char(CharCode) = #0 then Exit; -->> RESULT := TRUE; ))
← →
Ega23 © (2007-03-01 16:45) [7]
> Серьезное замечание. Интересно "особо продвинутых" - это
> о ком ? )))
Догадайся с трёх раз?
> Особенно умиляет
> if Char(CharCode) = #0 then Exit; -->> RESULT := TRUE;
> ))
Ну и? Что это означает? Сам в TWinControl посмотришь, или ткнуть?
← →
Ivolg © (2007-03-01 18:26) [8]Ega23 © (01.03.07 16:12) [2]
procedure TCarColorsForm.eCarColOrdKeyPress(Sender: TObject;
var Key: Char);
begin
if (Key in [" ", #8]) then Key := #0;
end;
Спасибо большое ! Это помогло.
Страницы: 1 вся ветка
Текущий архив: 2007.03.25;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.038 c
