コンボボックスにて'Del'キーを押した際に内容を消さないようにするには？

解決

SKJP 2004-12-18 20:07:39 No: 12361

Delphi7を使用していること前提に質問致します。

[ コンボボックスにて'Del'キーを押した際に内容を消さないようにするには？ ]

コンボボックスにフォーカスをあてた時にDeleteキーを押すと、内容が消去されるのですが、これを回避するにはどうしたら良いかわかりません。

判る方がいましたら、是非教えてください。
宜しくお願いします。

りおりお 2004-12-18 20:38:11 No: 12362

D7 でどうだか知りませんが D6 では OnKeyDown で Del キーだったら無視にする

procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_DELETE then Key := 0;
end;

通りすがり 2004-12-18 20:43:48 No: 12363

ComboBox1.Style := csDropDownList;
ではどうでしょう？

SKJP 2004-12-18 21:09:18 No: 12364

りおりおさん、通りすがりさんありがとうございました。

りおりおさんの方法で解決しました。

ちなみに僕は

KeyPress(Sender: TObject; var Key: Char);

を使って挑んでいました。