フサギコの *やさしい* Delphi質問スレ Ver.12
■ このスレッドは過去ログ倉庫に格納されています
0141デフォルトの名無しさん
NGNG以下のように書いたのですが[Del]キーだけ受け付けてくれません。
試しに他のフォームでテストプログラムを作って試すと[Del][BkSp]と
もうまくいくのですが…
うまくいく方とうまくいかない方のTreeViewのプロパティを比較して
いろいろいじくってみたのですがうまくいきません。。
考えられる原因として何か分かる方おられたらアドバイス頂けないでしょうか?
procedure TForm1.TreeView1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
Node: TTreeNode;
begin
Node := TreeView1.Selected;
if Node = nil then Exit;
case Key of
VK_BACK, VK_DELETE: Node.Delete;
end;
end;
■ このスレッドは過去ログ倉庫に格納されています