如题
解决方案 »
- delphi如何使用.output 备份slqite数据库?
- dll调用窗口时控件失效的问题
- 请问安装delphi 7中怎没有interbase数据库?
- 急~~请问如何在程序的客户区绘制数据曲线?
- 哪里可以下载能使用的InstallShield Express Custom Edition for Delphi
- 请问那里有windows 95 的安装程序?我的分不多了,答对者每人十分吧!谢谢了!
- 如何判断数据库中的数据是否为空?
- 在delphi中如何将一个word文件写到Oracle的Blob字段中?
- 怎么限制combobox的显示
- 特简单,进来拿分! if (sDatabase='' or sServer='' or sUser='') then为什么出错
- 本站提供能成为QQ会员的QQ代理,快来~~~
- 高分征求rave reports5.0相關資料
if edit1.text='open' then
begin
做的想做的事;
end;
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;type
TForm1 = class(TForm)
Label1: TLabel;
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
sOpen: string;
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if pos(Key,'open') > 0 then
begin
sOpen := sOpen + Key;
if sOpen = 'open' then //在這裡就可以處理open的功能了
label1.Caption := 'open';
end
else sOpen := '';
end;procedure TForm1.FormShow(Sender: TObject);
begin
sOpen:= '';
end;end.