procedure xx(fm:TForm);
begin
with Timage.Create(fm) do
begin
Picture.Bitmap.LoadFromFile('img\win_restore.bmp');
AutoSize:=true;
Left:=50;
top:=50;
Parent:=fm;
//onclick:=;
end;
end;
onclick后要怎么写才能关闭fm这个窗口
不要onclick后调用过程 一过程
本人一菜鸟,请教高手
begin
with Timage.Create(fm) do
begin
Picture.Bitmap.LoadFromFile('img\win_restore.bmp');
AutoSize:=true;
Left:=50;
top:=50;
Parent:=fm;
//onclick:=;
end;
end;
onclick后要怎么写才能关闭fm这个窗口
不要onclick后调用过程 一过程
本人一菜鸟,请教高手
解决方案 »
- 有没有开源的代码,可以打开很多种格式的图片
- 谁有深入delphi6网络编程的光盘
- 请教:用delphi能否自动创建access表
- 请问怎么在ReportBuilder 7.02 中实现让用户在最终设计时显示Calc页面?
- 我下载不到badcopy pro正式版,只下了个评估版(evaluation version),所以明明修复好的文件确保存不了,真痛苦!不知哪位大虾肯相助?
- 从日期中返回年、月、日的是哪几个函数????
- Dephi的帮助有汉化版吗?
- 十万火急!!谁知道那有 英汉对照翻译的电脑方面的资料!!!(一定给50)分
- Delphi数据分段查询(一个麻烦问题)
- 如何将(delphi中)*.db文件建立索引文件。类似vfp60中的“index”命令。
- 关于程序调用DLL时提示指针操作错误的问题.
- 如何分析接收到的数据
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
procedure MyClick(Sender:TObject);
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
OnClick:=MyClick;
end;procedure TForm1.MyClick(Sender: TObject);
begin
Close;
end;end.
-----------------------------------------
http://www.kmok.cn/
假设你的主窗口是:mainformprocedure TForm1.FormClick(Sender: TObject);
begin
((Sender as TImage).Parent as TForm).Close;
end;procedure xx(fm:TForm);
begin
with Timage.Create(fm) do
begin
Picture.Bitmap.LoadFromFile('img\win_restore.bmp');
AutoSize:=true;
Left:=50;
top:=50;
Parent:=fm;
onclick:=mainform.FormClick;
end;
end;