1樓：匿名使用者
用塌州歲團睜偽**描述就是跡團。
2樓：匿名使用者
你參考一畢培下啦。
varform1: tform1;
tag: boolean = true;
i : integer;
implementation
r *.dfm}
procedure : tobject);
beginif tag = 0 then :=答燃456'手舉唯。
else :=123';
tag :=not tag;
end;procedure : tobject);
beginif i mod 2 = 0 then :=456'
else :=123';
i :=i + 1;
end;end.
delphi7 點選button，更改button的caption。
3樓：網友
你這裡少了一對begin end;永遠都不會變成關閉。完拿搏整消悶祥語句：
procedure : tobject);
beginif = false then:=true;
關閉';endelse
false;
開啟罩行';
end;end;
哦，已經有人答了。
4樓：
procedure : tobject);
beginif = false then:=true;
關閉鬧沒攜';
endelse
begin //
false;
開察蠢啟';
end;/液伏/<-
end;
delphi怎麼遍歷groupbox中4個checkbox哪個選中，並取得他們的caption值
5樓：網友
用乙個string 變數 接收 遍歷下checkbox 選中就加上 不選就跳過。
在delphi中，實現單擊同乙個按鈕改變不同的內容，求源**
6樓：己聞楣
procedure : tobject);
begin= 0; // 這一句也可以不要，因預設的tag屬性取值就是0// 若有其它，可繼續編寫。
end;procedure : tobject );
const/ 定義乙個陣列表示四句。
c_aspoet : array[ 1..4 ] of string = (
床前明月光',疑是地上霜',舉頭望明月',低頭思故鄉'
beginif >= 4 then // 通過屬性來控制選用哪一句，如大於4，就不幹了。
exit;= + 1; // 因初值為0，而陣列下標從1開始，故先加一：= c_aspoet[ ]// 選用適當的句子end;
注意：如果在你的整體邏輯中有其它用途，則將以在tform中定乙個專用的私有變數來計數當前句子。
delphi 可不可以通過button的caption屬性 來讓乙個button實現兩個button的功能？
7樓：網友
當然可以啊消態，判斷一下caption的內容，根遊如據它執行拿磨源不同的方法。
if = 新增' then
else if = 更新'then
end;
8樓：除老伴不分你我
可在button的onclick事件中新增鍵前如下**：
if (sender as tbutton).caption='新增' then
begin/此處為插入資料的**。
end else if (sender as tbutton).caption='更新' then
begin/此處為更新資料的**。
endelse
showmessage('辯亮野按鈕標題不正確，請檢查攜喊修正');
9樓：網友
完全可以的，先判斷一下button的caption值就可以了。
delphi7中實現單擊form1中的按鈕，彈出form2並進行form2中的下一步操作？！
10樓：網友
事件寫modalresult:=mrok;
太簡單的問題啊。
用delphi怎麼實現jpeg格式影象的顯示
11樓：匿名使用者
delphi中的timage控制項直接支援bitmap格式(.bmp)、 icon格式(.ico
和metafile格式(.emf or .wmf)的影象檔案。
在delphi的設計視窗喊數飢中可以把這三種格式的檔案賦給timage控制項的picture屬性。timage控制項還能顯示其他格式的影象，如jpeg格式。
的影象。但不能直接把檔名賦值給picture屬性，而需要把影象物件賦值給屬性picture的graphic屬性。delphi 提供了tjpegimage類來支援jpeg影象鄭返，呼叫tjpegimage的方法loadfromfile可以從檔案中裝載jpeg影象。
因此顯示jpeg格式的影象，實現起來相對容易一些。以下是一畢伏個測試程式的製作過程：
1.建立乙個新的應用程式。
窗體（form）的名字為form1，對應的單元名為unit1。
2.在窗體中放置乙個timage控制項，名字為image1，將其autosize屬性設為true。
3.在窗體中放入乙個按鈕（即tbutton控制項），取名為button1，把其屬性caption改為「裝載影象」，在button1的onclick事件中，加入**後如下：
procedure : tobject);
var jpegimage:tjpegimage;
beginjpegimage:=;
建立jpeg影象物件。
從檔案f:\ align=left中裝載影象，視實際情況改變此處的檔名。
jpegimage;
賦值，使image1顯示jpeg影象。
finally
釋放物件。end; end;
4. 類tjpegimage定義在單元中，因此必須在本單元（即單元unit1）的uses 子句中包括單元jpeg。
5.執行本程式，進行測試。
delphi點選按鈕執行，delphi中 呼叫button1 click與呼叫buttonclick button1 有差別嗎
在button的click事件中寫 winexec regsvr32 u nvcpl.dll s sw hide 就沒有註冊成功的對話方塊了 用winexec,就兩個引數.比如我要開啟calc winexec pchar c windows system32 clac.exe sw hide 或者是...
如何用delphi實現區域網內軟體升級oracle資料庫
升級bai程式的話你客戶端做個du配置ip和ftp地址 密碼的zhi界dao 面。然後區域網中隨便專 你讓我來回答，說bai實話，我能給du你的建議不多，我zhi推薦你在物理層dao面上限制，可回 以去路由或交換機出答設定限速，實在不會還可以使用以下幾款軟體 lanhelper 中文名稱 區域網助手...
js如何實現submit的點選事件判斷是否觸發表單提交
submit只是表單提交時的驗證事件，無法獲取提交是否成功return false阻止表單提交，自己寫ajax提交表單內容 submit function error function xhr return false 把你這個submit的type改為button，就不會直接提交了，在onclic...