如题
解决方案 »
- label 不能在程序运行时正常显示caption
- 牛牛游戏算法
- TreeView如何实现这种效果
- 哪位好心人帮我把这句VC代码转成 DELPH的
- 2007微软的Vista操作系统推出,请问现在的delphi编写的程序可以在此系统下运行吗?
- 请问我要是把此程序放在架设的局域网上使用,要不要再写连接服务器端的计算机ip地址(或计算机名)的程序啊?谢谢!
- 如何知道一个文件的文件格式,使用什么工具,用什么方法?有什么通用的方法吗?
- delphi中的数据存储有链表这一说么?
- 用createoleobject调用ie和flashget,为什么ie新开窗口而flashget不是
- listview中怎么加入某条信息的id号,然后在点击时间读取id
- 本站提供能成为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.