我想寫一個模塊但是我不知道它的格式要怎么寫是否在
unit Unit2;interface
procedure TForm1.FormClick(Sender: TObject); //是否在這邊用這個來定義事件.
implementationend.
大家能否給點提示或給一個事例.
unit Unit2;interface
procedure TForm1.FormClick(Sender: TObject); //是否在這邊用這個來定義事件.
implementationend.
大家能否給點提示或給一個事例.
解决方案 »
- 一个很强的代码,谁能翻译成DELPHI的?高手来一下
- 请问Delphi中能不能使用正则表达式?
- 倾家荡产解决报表显示问题,解决后再散100分.在线急等!!!!!!!!!!!!!!!!!!!!!!!!
- cxGrid的MultiSelect为True后如何得到被选中的记录!
- 我的程序连接Access数据库,当用到SELECT * FROM a UNION SELECT * FROM b 出错
- VCL组件的图标都放在哪里的?*.bpl里没有?
- 请问大家的fastreport 有注册码吗? 没有注册码, 怎么用?,那里有免费版的?
- 请教各位大虾,关于怎为表改名建个假名?
- 很想订阅专门介绍delphi编程的杂志.您能告诉我书名,怎么订阅吗?非常感谢您!
- delphi如何做启动图片,就是如delphi启动时先加载一张图片
- 请看看我的方法正确么???
- 急问,关于类的用法!!!!
我在open那邊進入samples但是沒有看到啊
比如我想把這樣一個清空代碼放入模塊到底要怎樣寫才是最好的.//這是清空edit和commbobx的內容.
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to form1.ComponentCount-1 do
begin
if form1.Components[i] is tedit then
(form1.Components[i] as tedit).Text:=''
else if form1.Components[i] is tcombobox then
(form1.Components[i] as tcombobox).Clear;
end;
end;