Менюшки, как в "Мой компьютер"

← →
Bess © (2007-11-02 06:00) [0]

Приветствую всех!

Хотелось бы сделать менюшку слева, как в "Мой компьютер" (три окошка раскрывающиеся) но я не знаю, что для этого нужно использовать. Помогите плиз начинающему...

Заранее благодарю!

← →
clickmaker © (2007-11-02 09:55) [1]

несколько Panel, св-ва Visible, Top, ну и BitBtn с меняющимся Glyph

← →
Igor Zorkov © (2007-11-02 11:15) [2]

> Bess © (02.11.07 06:00)

Хочу посоветовать тебе попользовать JEDI VCL for Delphi там есть готовый компонент.

http://downloads.sourceforge.net/jvcl/JVCL333CompleteJCL1101-Build2725.zip?modtime=1190239418&big_mirror=0

http://downloads.sourceforge.net/jvcl/JVCL333CompleteNoJCL.zip?modtime=1190239458&big_mirror=0

http://downloads.sourceforge.net/jvcl/JVCL333SourceExamples.zip?modtime=1190239490&big_mirror=0

http://downloads.sourceforge.net/jvcl/JVCL333SourceOnly.zip?modtime=1190239534&big_mirror=0

← →
DVM © (2007-11-02 11:15) [3]

> Хотелось бы сделать менюшку слева, как в "Мой компьютер"

и что там за менюшка необычная? не вижу.

← →
DVM © (2007-11-02 11:16) [4]

Аааа. Это не менюшка называется.

← →
Washington © (2007-11-02 12:48) [5]

> DVM © (02.11.07 11:15) [3]

Я тоже над этим долго думал! :)

← →
Dmitry_177 (2007-11-02 13:46) [6]

что-то я не пойму, где это меню?

← →
Dmitry_177 (2007-11-02 13:47) [7]

ааа.... слева панель чтоли? =)))

← →
homm © (2007-11-02 13:48) [8]

> [6] Dmitry_177 (02.11.07 13:46)
> что-то я не пойму, где это меню?

У продвинутых пацанов оно отключено по дефолту, и открывается сразу с папками ;)

← →
SerJaNT © (2007-11-02 15:04) [9]

Настаящие пацаны никогда не пользуются эксплоером. Они сидят на файловых менеджерах типа TC, Far и др. ёу.

← →
Bess © (2007-11-03 01:48) [10]

Ребят, я начинающий, и может неправильно объяснил. Имеется ввиду три окошка слева, которые сворачиваются и разворачиваются при нажатии на кнопку, а внутри этого окна менюшки типа ссылок. Вот такое окно мне нужно, прорисовать, но чтобы оно не сворачивалось, а было статическим. Просто внешне выглядело бы, как в "мой компьютер", ну с моими линками внутри.
В крайнем случае хотелось бы сделать менюшку слева вертикальную с большими кнопками, как во многих программах.

Заранее благодарю!

← →
Bess © (2007-11-03 02:01) [11]

Второй вариант я понял как сделать: скрол бокс и кнопки, а вот с окнами-менюшками, как в "Мой компьютер" так и не пончл пока :(

← →
Ппш (2007-11-03 11:46) [12]

если хочешь чтобы и темы поддерживались, как вариант ExpressNavBar от Developer Express

← →
Tmp (2007-11-04 14:49) [13]

> Bess © (03.11.07 02:01) [11]

object Form1: TForm1 Left = 197 Top = 110 Width = 870 Height = 640 Caption = "Form1" Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = "MS Sans Serif" Font.Style = [] OldCreateOrder = False PixelsPerInch = 96 TextHeight = 13 object GroupBox1: TGroupBox Left = 4 Top = 4 Width = 185 Height = 85 Caption = "Задачи <<" TabOrder = 0 OnMouseUp = GroupBox1MouseUp object Label1: TLabel Left = 8 Top = 20 Width = 109 Height = 13 Cursor = crHandPoint Caption = "Показать сообщение" OnClick = Label1Click OnMouseEnter = Label1MouseEnter OnMouseLeave = Label1MouseLeave end object Label2: TLabel Left = 8 Top = 40 Width = 106 Height = 13 Cursor = crHandPoint Caption = "Свернуть программу" OnClick = Label2Click OnMouseEnter = Label1MouseEnter OnMouseLeave = Label1MouseLeave end object Label3: TLabel Left = 8 Top = 64 Width = 44 Height = 13 Cursor = crHandPoint Caption = "Закрыть" OnClick = Label3Click OnMouseEnter = Label1MouseEnter OnMouseLeave = Label1MouseLeave end end end

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) GroupBox1: TGroupBox; Label1: TLabel; Label2: TLabel; Label3: TLabel; procedure GroupBox1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Label1Click(Sender: TObject); procedure Label1MouseEnter(Sender: TObject); procedure Label1MouseLeave(Sender: TObject); procedure Label2Click(Sender: TObject); procedure Label3Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.GroupBox1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if Y>10 then Exit; if GroupBox1.Height<>20 then begin GroupBox1.Height:=20; GroupBox1.Caption:="Задачи >>"; end else begin GroupBox1.Height:=85; GroupBox1.Caption:="Задачи <<"; end; end; procedure TForm1.Label1Click(Sender: TObject); begin ShowMessage("Сообщение"); end; procedure TForm1.Label1MouseEnter(Sender: TObject); begin with TLabel(Sender) do begin Font.Style:=[fsUnderLine, fsBold]; Font.Color:=clBlue; end; end; procedure TForm1.Label1MouseLeave(Sender: TObject); begin with TLabel(Sender) do begin Font.Style:=[]; Font.Color:=clBlack; end; end; procedure TForm1.Label2Click(Sender: TObject); begin Application.Minimize; end; procedure TForm1.Label3Click(Sender: TObject); begin Close; end; end.

Примерно так.

← →
antonn © (2007-11-04 14:51) [14]

> Tmp (04.11.07 14:49) [13]

самый прикол не в том, что можно свернуть, а в том, что несколько таких менюшек при сворачивании съезжаются вместе :)

← →
atruhin © (2007-11-04 15:20) [15]

> самый прикол не в том, что можно свернуть, а в том, что
> несколько таких менюшек при сворачивании съезжаются вместе
> :)

Ну и сдвинуть, еще 50-100 строк кода, по крайней мере из-за этого ставить
набор на 50-200 компонентов не стоит. Плюс, возможность разобраться с компонентами.

← →
Tmp (2007-11-04 15:37) [16]

>> Tmp

Спасибо огромное, но мне нужен просто внешний вид этого окошка, статическое.

JVCL - а что это такое?

> Ах, юнный падаван, тебе еще столько предстоит постичь :)

Я понимаю, что глумиться легче, чем помочь...

Да потому что это Джидайская ВСЛ %)

Менюшки, как в "Мой компьютер" Найти похожие ветки