photoshop样子(100分)

我想写一个如photoshop样子的工具面板，可以在鼠标按下处有一个工具栏，有这样的控件吗？

可以自己写， 加一个popupmenu，然后响应鼠标不就行了？

是啊

不行，PopMenu上有字，如果去掉字，这边有一个空的地方不好看

弹出一个窗口不就行了，当然最好自己从TCustomForm继承出一个。

写一个当然可以，如果要有现存的控件就好了。

初始化IsDrag :=False;xx,yy :Integer;
在Form上放一Panel,拖动Panel实现工具栏的效果。

procedure TMainForm.PanelMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
IsDrag :=True;
SetCapture(Handle);
XX :=x;
YY :=y;
end;

procedure TMainForm.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if IsDrag then
begin
Panel.Left :=x-XX;
Panel.Top :=y-YY;
end;
end;

procedure TMainForm.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if IsDrag then
begin
ToolPanel.Left :=x-XX;
ToolPanel.Top :=y-YY;
ReleaseCapture;
IsDrag :=False;
end;
end;

你们的回答我都不满意，不过我还是给你们加点分，辛苦你们。我自己已经解决了。

多人接受答案了。

小弟：

现在也 需要可以和 我 工响吗？

Yourfriendq@sina.com