アプリ版:「スタンプのみでお礼する」機能のリリースについて

TFormにTmemoが張り付けてあるだけのメモ帳を作り、
ESCキーを押すだけで終了できるようにしたかったのですが、
情報がなくて困っています。
1),Escキーの識別方法がわかりません。
Form上でKeypressを拾えばいいのかと思ったのですが、そもそもESCキーはどのように
識別させたらよいのでしょうか??
ヘルプにESCキーという項目があるのですが期待するような内容ではなくがっかりしました。
2)procedure節を任意に呼べるのか
Formをクローズする際にある処理をしているので、できればFormCloseのprocedure節を呼べると良いと思うのですが、Delphiでこういうことはできるのでしょうか?

よろしくお願いいたします。

A 回答 (1件)

{$R *.dfm}より下をかきます。



procedure TForm1.FormCreate(Sender: TObject);
begin
KeyPreview := True;

end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=VK_ESCAPE then form1.Close;
end;

end.

ESCは仮想キーで VK_ESCAPE をつかいます。
かたは、WORD で、keyup をつかいます。

この回答への補足

できた!!!できましたよ!!

動作も思っていた通りに動作しました。

大変助かりました。ありがとうございました!

補足日時:2005/07/22 16:45
    • good
    • 0
この回答へのお礼

ああ!
素早い回答ありがとうございます。
取り急ぎお礼いたします!

もしかしたら補足させていただくかもしれません。
よろしくお願いします

お礼日時:2005/07/22 16:31

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!