procedure TFormMain.SpeedButton_ChannelClick(Sender: TObject);
var
Tag: Integer;
begin
Tag := (Sender as TSpeedButton).Tag;
QQButton(Panel_TreeView, Notebook_TreeView, Tag);
end;
procedure QQButton(Panel: TPanel; Notebook: TNotebook; Tag: Integer);
var
i: Integer;
begin
for i := Panel.ControlCount - 1 downto 0 do
if Panel.Controls.Tag > Tag then
Panel.Controls.Align := alBottom
else
if Panel.Controls.Tag = Tag then
Panel.Controls.Align := alTop;
Notebook.ActivePage := Notebook.Pages[Tag - 1];
end;
最好留下你的qq和mail
