【delphi开源代码栏目提醒】:以下是网学会员为您推荐的delphi开源代码-dhk.pas,希望本篇文章对您学习有所帮助。
unit dhk;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ImgList, StdCtrls, ExtCtrls, Buttons;
type
Tdhk_Form = class(TForm)
Image1: TImage;
Label1: TLabel;
ImageList1: TImageList;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
procedure FormShow(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
dhk_Form: Tdhk_Form;
implementation
uses main;
{$R *.dfm}
procedure Tdhk_Form.FormShow(Sender: TObject);
begin
Cursor:=16;
SpeedButton1.Cursor:=12;
SpeedButton2.Cursor:=12;
SpeedButton2.Visible:=True;
SpeedButton1.Caption:=' 是 ( &Yes )';
if Main_Form.buttonmk='OK' then
begin
SpeedButton2.Visible:=False;
SpeedButton1.Caption:='确定 ( &OK ) ';
end;
Label1.Caption:=Main_Form.dhkts;
ImageList1.Draw(Image1.Canvas,0,0,Main_Form.tbh);
end;
procedure Tdhk_Form.SpeedButton1Click(Sender: TObject);
begin
Main_Form.dhkmk:=True;
close;
end;
procedure Tdhk_Form.SpeedButton2Click(Sender: TObject);
begin
Main_Form.dhkmk:=False;
close;
end;
end.
上一篇:
frmForm.frm
下一篇:
哈弗F7 VS名爵HS,谁更懂得年轻人的心?