toolbar and button |
尚未結案
|
KFC
一般會員 發表:43 回覆:73 積分:23 註冊:2003-03-27 發送簡訊給我 |
|
william
版主 發表:66 回覆:2535 積分:3048 註冊:2002-07-11 發送簡訊給我 |
Use TB_ADDSTRING and TB_ADDBITMAP to add caption and icon first.
var Buttons: TTBButton; begin with Buttons do begin iBitmap := 0; idCommand := 0; fsState := TBSTATE_ENABLED; fsStyle := TBSTYLE_BUTTON; dwData := 0; iString := 0; end; SendMessage(ToolBar1.Handle,TB_ADDBUTTONS,1,integer(@Buttons)); end;But I don't think there is not an easy way to implement a 'onclick' since you will need to modify the message handling of the toolbar in order to handle the command idCommand? This is the old way (i.e. OWL in TPW). So why use API? var TB: TToolButton; begin TB := TToolButton.Create(ToolBar1); TB.Parent := ToolBar1; end; |
KFC
一般會員 發表:43 回覆:73 積分:23 註冊:2003-03-27 發送簡訊給我 |
|
william
版主 發表:66 回覆:2535 積分:3048 註冊:2002-07-11 發送簡訊給我 |
|
KFC
一般會員 發表:43 回覆:73 積分:23 註冊:2003-03-27 發送簡訊給我 |
|
william
版主 發表:66 回覆:2535 積分:3048 註冊:2002-07-11 發送簡訊給我 |
|
Justmade
版主 發表:94 回覆:1934 積分:2030 註冊:2003-03-12 發送簡訊給我 |
|
william
版主 發表:66 回覆:2535 積分:3048 註冊:2002-07-11 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |