Отключение кнопок

← →
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;

> Для особо продвинутых сообщаю

Серьезное замечание. Интересно "особо продвинутых" - это о ком ? )))

Особенно умиляет
if Char(CharCode) = #0 then Exit; -->> RESULT := TRUE; ))

> Серьезное замечание. Интересно "особо продвинутых" - это
> о ком ? )))

Догадайся с трёх раз?

> Особенно умиляет
> if Char(CharCode) = #0 then Exit; -->> RESULT := TRUE;
> ))

Ну и? Что это означает? Сам в TWinControl посмотришь, или ткнуть?

Ega23 © (01.03.07 16:12) [2]

procedure TCarColorsForm.eCarColOrdKeyPress(Sender: TObject;
var Key: Char);
begin
if (Key in [" ", #8]) then Key := #0;
end;

Спасибо большое ! Это помогло.

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