关于含有frame的窗体的事件触发问题 我在窗体上动态加载了一个frame,frame里有一个datagrid请问在frame中如何触发form里的事件或者在form里有什么办法得到frame里datagrid的单击事件 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TfrmPicture.BitBtn3Click(Sender: TObject);//创建图像框var tmp:TImage; tmp1:Tpanel;begin if OpenPictureDialog1.Execute then begin CurrObject:=2; //0:=nil;1=Tedit;2=TImage tmp1:=Tpanel.Create(nil); tmp1.Parent:=panel2; tmp1.Color := clBlack; //黑色 tmp1.Visible :=True; tmp1.PopupMenu:=PopupMenu3; tmp1.name:='P'+RandObjectName; ListBox2.Items.insert(0,tmp1.name); tmp:=TImage.Create(nil); tmp.Parent :=tmp1; tmp.AutoSize :=True; tmp.Picture.LoadFromFile(OpenPictureDialog1.FileName); tmp1.Hint:= OpenPictureDialog1.FileName; tmp.Visible :=True; tmp.OnMouseDown:=ImageMouseDown; tmp.ondragover:=Panel2DragOver; tmp1.Width :=tmp.Width ; tmp1.Height :=tmp.Height ; tmp.OnClick :=ImageClick; tmp.Align := alclient; end;end;//这是我程序里的一段垃圾代码,希望对您有帮助 开启http 服务问题 Delphi 怎样使用程序来设置和清除excel2000的打开密码? 如何提取文本文件里面的email地址 dbgrid 求中国式财务金额显示的DBGRID类的控件!分不够可以加! 捕获不到数据库连接失败的问题 请问怎样动态改变当前输入法? delphi新手,头次提问,大家帮我看看好么? 一条sql语句放在query中,不知道要加几个’号! 关于数据库的几个问题?? 请求指点在分布式(ADO + TSocketConnection)中客户端程序和服务端程序经常出现没响应,先谢谢大家了!!!! 关于判断字符串长度简单的问题
var
tmp:TImage;
tmp1:Tpanel;
begin if OpenPictureDialog1.Execute then
begin
CurrObject:=2; //0:=nil;1=Tedit;2=TImage
tmp1:=Tpanel.Create(nil);
tmp1.Parent:=panel2;
tmp1.Color := clBlack; //黑色
tmp1.Visible :=True;
tmp1.PopupMenu:=PopupMenu3;
tmp1.name:='P'+RandObjectName;
ListBox2.Items.insert(0,tmp1.name);
tmp:=TImage.Create(nil);
tmp.Parent :=tmp1;
tmp.AutoSize :=True;
tmp.Picture.LoadFromFile(OpenPictureDialog1.FileName);
tmp1.Hint:= OpenPictureDialog1.FileName;
tmp.Visible :=True;
tmp.OnMouseDown:=ImageMouseDown;
tmp.ondragover:=Panel2DragOver;
tmp1.Width :=tmp.Width ;
tmp1.Height :=tmp.Height ;
tmp.OnClick :=ImageClick;
tmp.Align := alclient;
end;
end;//这是我程序里的一段垃圾代码,希望对您有帮助