Вывод кнопок динамически

← →
akosh12345 © (2010-06-14 20:50) [0]

Дорогие друзья. Пишу файловый менеджер. Возникла проблема с отображением дисков (ТОМ)
То есть, отображаю динамически кнопки дисков: "C:","D:" ......"Z:"
создаю эти кнопки следующем образом.
DriveRefreshLeft(ComboBoxLeft.Items.Count-1); // ComboBOxLeft - содержит имена дисков

procedure DriveRefreshLeft(DriveCount : Integer);
var
SpeedButDrive : TSpeedButton;
begin

While DriveCount>=0 do
begin
SpeedButDrive := TSpeedButton.Create(Application);
SpeedButDrive.Parent:= Main.ToolBar1;
SpeedButDrive.Caption := LeftStr(Main.ComboBoxLeft.Items[DriveCount],2);
SpeedButDrive.Name := "SpeedButDriveLeft"+IntToStr(DriveCount);
SpeedButDrive.GroupIndex := 1;
SpeedButDrive.OnClick := Main.SpeedButLeft.OnClick;
Dec(DriveCount);
SpeedButDrive.Visible := true;
end;

end;

Создаю на ToolBar1 кнопки

Обрабатываю на подключения новых устройств

const
DBT_DeviceArrival = $8000;
DBT_DeviceRemoveComplete = $8004;
type
TMain = class(TForm)
........
private
procedure WMDeviceChange(var Msg: TMessage); message WM_DEVICECHANGE; // отслежка подключенных устройств.

procedure TMain.WMDeviceChange(var Msg: TMessage);
var
Drive: string;
Rect :TRect;
Win :TWinControl;

ld : DWORD; // переменные для подключенных дисков
i : integer;

free_size, total_size: Int64; // определения размера текущего диска
p : string[1];
o : char;

SpeedButDrive: TSpeedButton; // вывод кнопок дисков
TekDrive : string;
Tek : integer;

TekDriveLeft, TekDriveRight : string; // текущая позиция
begin
Application.ProcessMessages;
if Msg.wParam = DBT_DeviceArrival then
begin //если засунули

// левая панель
Rect := DriveLeft.BoundsRect;
Win := DriveLeft.Parent;
DriveLeft.Free;
DriveLeft := TDriveComboBox.Create(self);
DriveLeft.Parent := Win;
DriveLeft.BoundsRect := Rect;
DriveLeft.Visible := True;
DriveLeft.CharCase := ecUpperCase;
DriveLeft.Visible := false;

// правая панель
Rect := DriveRight.BoundsRect;
Win := DriveRight.Parent;
DriveRight.Free;
DriveRight := TDriveComboBox.Create(self);
DriveRight.Parent := Win;
DriveRight.BoundsRect := Rect;
DriveRight.Visible := True;
DriveRight.CharCase := ecUpperCase;
DriveRight.Visible := false;

TekDriveLeft := ComboBoxLeft.Items.Strings[ComboBoxLeft.ItemIndex]; // сохранил текущую позицию
TekDriveRight := ComboBoxRight.Items.Strings[ComboBoxRight.ItemIndex];

ComboBoxLeft.Items.Clear; // очищаю
ComboBoxRight.Items.Clear;

// забиваю дисков в Combobox
ld := GetLogicalDrives;
for i := 0 to 25 do
begin
if (ld and (1 shl i)) <> 0 then
begin
ComboBoxLeft.Items.Add(Char(Ord("A") + i) + ":\");
ComboBoxRight.Items.Add(Char(Ord("A") + i) + ":\");
end;
end;

Tek := 0;

while TekDrive <> TekDriveLeft do // возвращаю на искомое место, которое было до обновления
begin
Tek := Tek+1;
if ComboBoxLeft.Items.Strings[Tek] = TekDriveLeft then TekDrive := TekDriveLeft;
end;

ComboBoxLeft.ItemIndex := Tek;

Tek := 0;

while TekDrive <> TekDriveRight do
begin
Tek := Tek+1;
if ComboBoxRight.Items.Strings[Tek] = TekDriveRight then TekDrive := TekDriveRight;
end;

ComboBoxRight.ItemIndex := Tek;

{ DriveRefreshLeft(ComboBoxLeft.Items.Count);

Label1.Width:=ToolBar1.Width - ((DriveLeft.Items.Count)*SpeedButLeft.Width)-ListViewRight.Width+26;

DriveRefreshRight(ComboBoxRight.Items.Count-1);
}
end
else if Msg.wParam = DBT_DeviceRemoveComplete then
begin //если выдернули
// левая панель
Rect := DriveLeft.BoundsRect;
Win := DriveLeft.Parent;
DriveLeft.Free;
DriveLeft := TDriveComboBox.Create(self);
DriveLeft.Parent := Win;
DriveLeft.BoundsRect := Rect;
DriveLeft.Visible := True;
DriveLeft.CharCase := ecUpperCase;
DriveLeft.Visible := false;

// правая панель
Rect := DriveRight.BoundsRect;
Win := DriveRight.Parent;
DriveRight.Free;
DriveRight := TDriveComboBox.Create(self);
DriveRight.Parent := Win;
DriveRight.BoundsRect := Rect;
DriveRight.Visible := True;
DriveRight.CharCase := ecUpperCase;
DriveRight.Visible := false;

TekDriveLeft := ComboBoxLeft.Items.Strings[ComboBoxLeft.ItemIndex]; // сохранил текущую позицию
TekDriveRight := ComboBoxRight.Items.Strings[ComboBoxRight.ItemIndex];

ComboBoxLeft.Items.Clear; // очищаю
ComboBoxRight.Items.Clear;

// забиваю дисков в Combobox
ld := GetLogicalDrives;
for i := 0 to 25 do
begin
if (ld and (1 shl i)) <> 0 then
begin
ComboBoxLeft.Items.Add(Char(Ord("A") + i) + ":\");
ComboBoxRight.Items.Add(Char(Ord("A") + i) + ":\");
end;
end;

Tek := 0;

while TekDrive <> TekDriveLeft do // возвращаю на искомое место, которое было до обновления
begin
Tek := Tek+1;
if ComboBoxLeft.Items.Strings[Tek] = TekDriveLeft then TekDrive := TekDriveLeft;
end;

ComboBoxLeft.ItemIndex := Tek;

Tek := 0;

while TekDrive <> TekDriveRight do
begin
Tek := Tek+1;
if ComboBoxRight.Items.Strings[Tek] = TekDriveRight then TekDrive := TekDriveRight;
end;

ComboBoxRight.ItemIndex := Tek;

{ DriveRefreshLeft(ComboBoxLeft.Items.Count);

Label1.Width:=ToolBar1.Width - ((DriveLeft.Items.Count)*SpeedButLeft.Width)-ListViewRight.Width+26;

DriveRefreshRight(ComboBoxRight.Items.Count-1);}
end;
end;

как мне сделать так, что бы на форме появилась соответствующее количество кнопок?

← →
Юрий Зотов © (2010-06-14 21:21) [1]

Аффигеть... зачем так много ручной работы?

Создавайте не TSpeedButton, а TToolButton, и Owner"ом у них ставьте тулбар, а никакой не Application. В комбобоксе, помимо имен устройств, храните еще и ссылки на кнопки (в свойстве Objects). При изменении состава устройств добавляете или удаляете строку в комбобоксе, то же самое делаете с кнопкой (причем удаляете через все то же свойство Objects). Все остальное (сдвиги при удалении и прочее) сделает сам тулбар, кодить ничего не придется.

Вот пример из хелпа:
procedure AddButtons(ToolBar: TToolBar; Const ButtonCaptions: array of String); var I: Integer; begin for I := 0 to High(ButtonCaptions) do begin with TToolButton.Create(ToolBar) do begin Parent := ToolBar; Caption := ButtonCaptions[I]; if (ButtonCaptions[I] = "|") then Style := tbsSeparator else Style := tbsButton; end; end; end; procedure TForm1.FormCreate(Sender: TObject); var ToolBar: TToolBar; begin ToolBar := TToolBar.Create(Self); ToolBar.Parent := Self; AddButtons(ToolBar, ["New", "Save", "|", "Cut", "Copy", "Paste"]); ToolBar.ShowCaptions := True; ToolBar.Height := 40; end;

Вывод кнопок динамически Найти похожие ветки