有没有范例说明怎样用win32 api往toolbar中加入button和icon? 我实在看不懂win32 api help中的说明。那些参数该怎样设？

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;

william啊，真的非常感谢你。算一算你替我解决了很多问题啊。 用API是因为我又涉及到DLL的问题。那个TOOLBAR的handle是从一个主程序上截得的。而我虽要在我的DLL中用API将button加入到主程序的handle中。

If both dll and your main application are written in Delphi, there is no need to do it in the API way. VCL has wrapped all the API involved.

但主程序不是我开发的，没有原码。而且它不是用Delphi写的。

[quote]但主程序不是我开发的，没有原码。而且它不是用Delphi写的。/quote] 那樣我想要在 button click 有所動作不是那麼容易了

william 兄，這個用你上次介紹的 dll + system hook 去欄截 button click 的 Message 可以嗎?  不過我對 Message 不是很熟也不大會做...

引言:william 兄，這個用你上次介紹的 dll system hook 去欄截 button click 的 Message 可以嗎? 不過我對 Message 不是很熟也不大會做...< face="Verdana, Arial, Helvetica"> Don't know > >