求foxMail那个自定义工具条的设置控件?带图标,两个Listbox样子到换 Items的....(100分)

在FoxMail上的工具栏上点右键选择自定义,然后你看到的那个自定义工具栏设置.
我就想做出那个效果来.

求方案或控件.

我关注这个技术很久了，也很想知道。我只知道一点点。
利用ini和Tstrings文件存储 对象，再在工具条的拖放下写事件。

UP 一下！

关注

真的没有人会?

UP

FoxMail 用的是 RXLIB 控件，不过有经过修改了

请用全文检索http://richsearch.com/。
查找 “自定义 工具栏”，可以找到些有用的信息。

Toolbar不能么

没有答案,我再提...

注意:我是求这种效果,并不是做TOOLBAR

我再提

我提，我提，我提提提

看看这个

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
bb: Boolean = False;
PX,PY,PX1,PY1: Integer;

implementation

{$R *.dfm}

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if bb = False then
begin
Form1.Canvas.Pen.Color := clred;
Form1.Canvas.Pen.Width := 1;
Form1.Canvas.Pen.Style := psSolid;
//Form1.Canvas.Pen.Mode := pmBlack;
PX := X;
PY := Y;
BB := True;
end;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if bb = True then
begin
Form1.Canvas.Pen.Color := clBtnFace;
Form1.Canvas.MoveTo(PX,PY);
Form1.Canvas.lineto(PX1,PY1);
Form1.Canvas.Pen.Color := clred;
Form1.Canvas.MoveTo(PX,PY);
Form1.Canvas.LineTo(X,Y);
PX1:=X;
PY1:=Y;
end;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
BB:= False;
form1.Update;
end;

end.

用ActionManager把你的事件都寫好,
然後用綁定,如何?
[][][][][]

我的贴子都结束得差不多了，谢谢大富翁上的各位。

这个贴子还是有些麻烦，100分 分不了去啊！

up