Unit1.pas ( 文件浏览 )
- keepall 发布于 2016-08-26 12:00
- 浏览次数:343
- 下载次数: 0
- 下载需 10 积分
-
- 侵权举报
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,MMSystem, ImgList, ExtCtrls, StrUtils, Unt_Popup; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; PopUp1: TPopUp; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure PopUp1TextClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; Pop:TPopUp; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin PopUp1.ShowPopUp; end; procedure TForm1.Button2Click(Sender: TObject); var Pfm:unt_PopUp.TfrmPopUp; begin PopUp1.ShowPopUp; end; procedure TForm1.PopUp1TextClick(Sender: TObject); begin ShowMessage('TextClick'); end; end.
...
展开> <收缩
Sponsored links
源码文件列表
温馨提示: 点击源码文件名可预览文件内容哦 ^_^名称 | 大小 | 修改日期 |
---|---|---|
/PopUPDemo/ | 0 Bytes | 2016-08-26 12:02:36 |
/PopUPDemo/PopUPDemo.dpr | 189 Bytes | 2004-10-25 14:12:22 |
/PopUPDemo/PopUPDemo.res | 876 Bytes | 2004-10-12 21:05:50 |
/PopUPDemo/Unit1.dfm | 146.54 KB | 2004-10-25 14:11:38 |
/PopUPDemo/Unit1.pas | 888 Bytes | 2004-10-25 14:08:58 |
/PopUPDemo/TPopUp/ | 0 Bytes | 2016-08-26 12:02:04 |
/PopUPDemo/TPopUp/unt_Popup.dcr | 1.68 KB | 2004-10-21 21:20:56 |
/PopUPDemo/TPopUp/Unt_Popup.pas | 34.60 KB | 2004-10-22 01:15:24 |
Sponsored links