unit UrlEdit;
interface
uses
Windows, SysUtils, Classes, Controls, StdCtrls, Dialogs, ShellAPI, Forms, Messages, Graphics;
type
TUrlEdit = class(TEdit)
private
{ Private declarations }
protected
{ Protected declarations }
procedure KP(Sender: TObject; var Key: Char);
public
{ Public declarations }
constructor Create(a: TComponent);override;
published
{ Published declarations }
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Samples', [TUrlEdit]);
end;
{ TUrlEdit }
{ TUrlEdit }
constructor TUrlEdit.Create(a: TComponent);
begin
inherited Create(a);
OnKeyPress := kp;
end;
procedure TUrlEdit.KP(Sender: TObject; var Key: Char);
begin
if Key = #13 then
ShellExecute(Application.Handle,nil,PChar(text),nil,nil,SW_NORMAL);
inherited;
end;
end.
Delphi控件开发(三)TUrlEdit
最后编辑于 ：
©著作权归作者所有,转载或内容合作请联系作者
- 文/潘晓璐 我一进店门，熙熙楼的掌柜王于贵愁眉苦脸地迎上来，“玉大人，你说我怎么就摊上这事。” “怎么了？”我有些...
- 文/花漫 我一把揭开白布。 她就那样静静地躺着，像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上，一...
- 文/苍兰香墨 我猛地睁开眼，长吁一口气：“原来是场噩梦啊……” “哼！你这毒妇竟也来了？” 一声冷哼从身侧响起，我...
推荐阅读更多精彩内容
- Xamarin XAML语言教程构建ControlTemplate控件模板 控件模板ControlTemplate...
- 1、从Android到React Native开发（一、入门）2、从Android到React Native开发（...
- 经过前面的学习，我们已经能开发简单又不失美观的程序界面了。 但是在之前的布局中，我们没有用到Android开发中最...
- 文/程序员男神 前言 又到了周五，提前预祝各位周末愉快。自己这周在公司也没干什么，也没有多少计划，希望周末调整一下...
- 相信张雪峰这个名字对大家来说 并不是很陌生 之前在网络上爆火的考研老师 应该有很多人看过他的视频资料 的确是有...
