モナーの *やさしい* Delphi質問スレ Ver3
■ このスレッドは過去ログ倉庫に格納されています
0292デフォルトの名無しさん
NGNGこんなんんでどうよ？
Form1.KeyPreview := Trueして
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if (Key = #13) and (ActiveControl = HotKey1) then
begin
HotKey1.HotKey := TextToShortCut('Enter');
Key := #0;
end;
end;
■ このスレッドは過去ログ倉庫に格納されています