1樓：沒用過山寨機
這個太簡單了，放乙個timer，把函式寫在timer裡好稿面，timer的時間可調，enabled設為false。
按鈕的mousedown事件上，把這個timer的enabled設為true。滑鼠按住不放時，timer就會在設定的時間重複執行函式了。
按鈕的mouseup事件上，把拿襪隱這個timer的enabled設為false。滑鼠放開按鈕時，timer停止消廳工作。
2樓：網友
將要呼叫的函式寫在 timer1timer(sender: tobject) 中。
procedure : tobject; button: tmousebutton;
shift: tshiftstate; x, y: integer);
beginif button = mbleft then begin
3000; /調整段敬肆時間，目前 3 秒。
true;ggtime :=0;
end;end;
procedure : tobject);
varinfo: string;
id: integer;
beginggtime :=ggtime + round(;
info :=format('你已經按了 %d 秒沒有放開。',ggtime]);
id :=, 滑鼠左鍵被按握轎下稿舉', mb_ok);
if id = idok then begin
false;
ggtime :=0;
end;end;
怎樣讀取delphi裡按鈕控制項(tbutton)的所有屬性？
3樓：佴曦哲
我是想通過程式設計的方式 得到控制項的屬性列表 ——就是該控制項顯示在object inspector --properties 的所有屬性。 檢視更多答案》
delphi 哪些控制項可以作為工具欄上的按鈕
4樓：網友
只要是button類控制項就可以作為工具欄的按鈕，例如：standard 中的button和radiobutton. additional中的speedbutton.
這幾個都是非常常用到的。
procedure clink(sender:tobject) 就是對視窗「tform1」的「確定」按鈕編寫click**。
5樓：網友
這問題問得也太怪了吧！ 只要是button類控制項都可以，當然廣意的講只要能執行onclick事件的都可以。
6樓：網友
任意控制項，控制項會自動調整大小以適應工具欄，一般常用的有按紐、組合框、文字框。
delphi 關於動態生成控制項的問題
7樓：啦啦啦啦
vari :integer = 1;
f :textfile;
path :string;
procedure : tobject);
varb :tbutton;
e :tedit;
begine := ; //動態建立tedit控制項。
self; //指定edit控制項的父類是窗體。
i,40,50,20);
inttostr(i); //初始控制項的text屬性。
'e' + inttostr(i); //重新命名控制項。
i; //控制項的標識資訊。
path := '';
b := ;
self;
buttononclick;
'b' + inttostr(i);
i;inc(i);
end;procedure : tobject);
var j:integer;
begintry
assignfile(f,path);
if not fileexists(path) then begin //判斷是否存在檔案。
rewrite(f); //如果不存在就建立乙個空檔案。
for j := 0 to -1 do //遍歷窗體所有控制項。
if ( is tedit) and ( = tbutton(sender).tag) then begin
writeln(f,tedit(; //條件1:是否是tedit控制項。條件2:是否與按鈕相對應。
break; //找到乙個後就跳出。因為只是單擊乙個按鈕一下。
end;finally
closefile(f); //關閉檔案。
end;end;
夠明白嗎？.在delghi7已經給你測試過了。以上**屬於個人所寫。
delphi 動態建立按鈕及panel並通過按鈕事件釋放
8樓：謝3哥
**，問題是你動態建立的時候是乙個臨時變數，釋放的時候，可能變數已經不存在了。
9樓：網友
可以發訊息給窗體事件，在窗體事件中釋放。
delphi 程式內執行按鍵的問題
10樓：網友
註冊系統熱鍵。
在form的private段中宣告如下：
tform1 = (tform)
private
hotkeyid: integer;
procedure wmhotkeyhandle(var msg: tmessage); message wm_hotkey;
.procedure msg: tmessage);
beginif ( = 119) thenbegin
todo: 這裡執行你的**。
end;end;
form建立時註冊熱鍵。
procedure : tobject);
beginhotkeyid := globaladdatom(pchar('userdefinehotkey')) c000;
registerhotkey(handle, hotkeyid, 0, 119);
end;/form釋放時移除熱鍵。
procedure : tobject);
beginunregisterhotkey(handle, hotkeyid);
deleteatom(hotkeyid);
end;就這樣。
delphi7 安裝控制項問題。
11樓：強德文騎娟
你可以把要安裝的控制項原始檔放到delphi安裝目錄的lib資料夾中，然後再安裝試試，應該不會彈出錯誤了吧。我以前也總是出錯，都是路徑名沒有新增到全域性路徑的後果，我不知道是不是delphi笨，編譯出的dcu檔案不會自動放進去的。如果還不行，那就只能你要寫軟體的時候用到這個控制項就把相應的原始檔放到軟體根目錄下。
12樓：求興有昝雲
1、路徑有沒有設定正確啊，2、還是這個控制項需要另外乙個包含。
的控制項先安裝。
13樓：網友
安裝按鈕沒用是因為你已經裝了。你看下你的控制項欄是否有這些控制項。如果有的話那就是你的demo版本不對。
14樓：下揚州啊
應該是編譯有錯誤。
否則不可能裝不上的。
15樓：網友
已經安裝上了，你可以remove 然後compile 一下，這樣可以重新安裝。問題不在控制項這邊了。
關於delphi按鈕樣式問題。。
16樓：網友
都給你說了，他用了txpmanifest 控制項。
這是windows主題造成的。你windows切換到 xp主題或者其他好看的主題的時候，你的按鈕樣式就會跟著變化。
你用的是哪個版本的delphi
如果是delphi7以上的版本的話，可以放乙個txpmanifest 控制項到主form上，按鈕樣式就會跟著windows主題變化。
17樓：網友
把**貼出來，最好dfm窗體檔案也弄出來。
我懷疑用其他控制項來美化的。
關於delphi的簡單問題，Delphi的8個技巧
000001 說明它是一個字串，只要。vari integer str string beginfor i 1 to 99 if i 10 then str 00000 inttostr 1 else if i 10 and i 100 then str 0000 i 如果數字還可能大於99，就接著...
問按鍵精靈的指令碼，問一個按鍵精靈的指令碼。
不對的 首先你要在vbscall findcolorex 0,0,1024,768,ffffff 1,0.8,x,y 之前加進去一天標記語句 然後 再把的語句 插在moveto x 1,y 1之前 這樣 在滑鼠移動到x 1,y 1之前 就判斷了x 10,y 10是否要點選 不點選的話 他就重新回到找...
關於長笛按鍵的問題，長笛按鍵問題
有很大的影響，會影響長笛的音準，音色等，還有建議你最好檢查一下長笛的整體情況，出現這種問題說明長笛有很久沒做保養了，有條件的話，最好拿到可以修理樂器的地方，進行全面的檢查，修理和保養，以確保音鍵高度正確，鍵杆沒有變形，墊片沒有損壞，確認沒有漏氣等問題，以保證音準音色的完好。自己解決的方法 橡膠可以用...