说你胖,你就喘,给你点分你就抢 procedure ShowForm(Sender: TObject; Menu: TMainMenu);begin TForm(Sender).Caption := ''; end; 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 function(const formname,menuname:string):string;begin formname:=mainform1.name; menuname:=mainform1.mainmenu1.name; result:='分不要了,我踹你一脚就是了,笨蛋!'end; delphi USB通讯 关于字符与ASC码转换的问题 dephi操作出现 "键列信息不足或不正确,更新影响到过多的行" TerminateProcess 和 ExitProcess 有什么区别 Indy报Socket Error # 10054,如何解决? 怎样获取数据库某个表中指定字段下的数据的值 怎样使用户可以动态地修改报表格式 如果实现网页内容的过滤,比如过滤掉图片不显示(200求助,只差最后一步)?? DES 算法对字符串加、解密算法的源码 csdn的同志门,放点分! jpeg的问题? 初学DELPHI,现在在看英文的..........
begin
formname:=mainform1.name;
menuname:=mainform1.mainmenu1.name;
result:='分不要了,我踹你一脚就是了,笨蛋!'
end;