一個按鈕 如何去執行另一個按鈕 並執行自己的程式 ????? |
|
答題得分者是：speedup
|
|
seedbcc
高階會員   發表：232 回覆：272 積分：105 註冊：2003-12-10 發送簡訊給我 |
我有二個Button
一個名稱為 "確定" Btn_SaveExit
一個名稱為 "套用〞 Btn_Save "確定"這個button 的程式內容 為 "套用〞的全部內容
再加一行close; //★ 套用 ★ -------------------->做存檔的動作
procedure TFileLikelySet.Btn_SaveClick(Sender: TObject);
begin
.............................
.............這裡面為 一些 存檔至table的程式
.........................
end; // ★ 【確定】 ★ -----> 存檔並結束程式畫面
procedure TFileLikelySet.Btn_SaveExitClick(Sender: TObject);
begin
//存檔
************************************
//離開
Close;
end; 請問我在 確定 的Click中，存檔部分 如何去執行 套用
|
|
hagar
版主  發表：143 回覆：4056 積分：4445 註冊：2002-04-14 發送簡訊給我 |
//★ 套用 ★ -------------------->做存檔的動作
procedure TFileLikelySet.Btn_SaveClick(Sender: TObject);
begin
.............................
.............這裡面為 一些 存檔至table的程式
.........................
end; // ★ 【確定】 ★ -----> 存檔並結束程式畫面
procedure TFileLikelySet.Btn_SaveExitClick(Sender: TObject);
begin
//存檔
Btn_Save.Click;
//離開
Close;
end;
|
|
speedup
資深會員 發表：19 回覆：259 積分：280 註冊：2003-07-04 發送簡訊給我 |
發表時間：2004-05-12 11:31:05
IP:221.169.xxx.xxx 未訂閱
系統時間：2024-05-20 0:21:06
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |