【delphi开源代码栏目提醒】:网学会员鉴于大家对delphi开源代码十分关注,论文会员在此为大家搜集整理了“Fyxszk.pas”一文,供大家参考学习
unit Fyxszk;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Fbase, ComCtrls, StdCtrls, ExtCtrls, Buttons, ToolWin, TeEngine,
Series, TeeProcs, Chart, DbChart, DB, ADODB, Grids, DBGrids, jpeg,shellapi;
type
TF_yxszk = class(TF_base)
StaticText1: TStaticText;
Label1: TLabel;
Label3: TLabel;
Label4: TLabel;
Image1: TImage;
Bevel1: TBevel;
Label5: TLabel;
procedure Label4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
F_yxszk: TF_yxszk;
implementation
uses Fdm;
{$R *.dfm}
procedure TF_yxszk.Label4Click(Sender: TObject);
begin
inherited;
ShellEXecute(handle,'open','http://www.mingrisoft.com',nil,nil,Sw_normal);
end;
end.