Работа с динамичексим компонентом

[Sveta22]

Добрый день.
Создаю динамически кнопки

procedure TForm1.FormCreate(Sender: TObject);
  var
  i: integer;
  c: integer;
begin
   c := Form1.ClientWidth div 52;
  for i := low(b) to high(b) do begin
    b[0] := TButton.Create(nil);
    b[0].Caption := IntToStr(i + 1);
    b[0].Width := 50;
    b[0].Height := 20;
    b[0].Left := 152 * (i mod c);
    b[0].Top := 22 * (i div c);
    b[0].OnClick := Button1Click;
    b[0].Parent := Form1;
    b[1] := TButton.Create(nil);
    b[1].Caption := IntToStr(i + 1);
    b[1].Width := 50;
    b[1].Height := 20;
    b[1].Left := 152 * (i mod c);
    b[1].Top := 42* (i div c);
    b[1].Parent := Form1;

Проверяю на то будет ли кнопка отображатся или нет

b[0].Visible :=FileExists('C:\1.exe');

Проблема в том что мне надо допустим если не будет отоброжатся первая кнопка то вторая поднялась на ее место и т.д. Подскажите плизз как это сделать

[VVM]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    B: array [1..10] of TButton;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
const
  Step = 40;
var
  I, P: integer;
begin
  P := 0;
  for I := 1 to High(B) do
  begin
    B[i] := TButton.Create(Form1);
    B[i].Parent := Form1;
    B[i].Name := 'B' + IntToStr(I);
// ...
    B[i].Top := P;
    Randomize;     // эмуляция видимости в вашем коде
    if Random(2) = 0 then   //типа файл существует
    begin
      B[i].Visible := true;
      P := P + Step;
    end;
  end;
end;

end.

[mihali4]

Сообщение от Sveta22

Добрый день.
Создаю динамически кнопки
Проблема в том что мне надо допустим если не будет отоброжатся первая кнопка то вторая поднялась на ее место и т.д. Подскажите плизз как это сделать

Используйте компонент ToolBar, там это реализуется автоматически.

[VVM]

Если я правильно понял, вы создаете массив с кнопками и заполняете его в цикле:

for i := low(b) to high(b) do begin

Тогда зачем вы указываете индексы константами (цифрами)?:

b[0] := TButton.Create(nil);
b[0].Caption := IntToStr(i + 1);
b[0].Width := 50;
b[0].Height := 20;
//...

Может лучше так:

b[i] := TButton.Create(nil);
b[i].Caption := IntToStr(i + 1);
b[i].Width := 50;
b[i].Height := 20;
//...

[Sveta22]

Используйте компонент ToolBar, там это реализуется автоматически.

Да использовала как раз то что мне нужно было, но увы нужно подругому(

[mihali4]

но увы нужно подругому

Что именно "нужно по-другому"?
Вам нужно кнопки отдельные, разбросанные по форме?

[Sveta22]

VVM Задание такое, нужны кнопки каждая из которых запускает определенный ексешник, есть группа пользователей которые видят кнопки по разному т.е допустим админ видит все кнопки а юсер только 3

[Sveta22]

Вам нужно кнопки отдельные, разбросанные по форме?

Ну можно и так сказать

[VVM]

VVM Задание такое, нужны кнопки каждая из которых запускает определенный ексешник, есть группа пользователей которые видят кнопки по разному т.е допустим админ видит все кнопки а юсер только 3

А как программа должна различать кому сколько кнопок показывать (кто работает за компои - user или admin)?

[Sveta22]

А как программа должна различать кому сколько кнопок показывать (кто работает за компои - user или admin)?

Ну я делаю проверку существует ли путь к файлу ( так же можно доступ перекрыть к файлу и все) если нет то не отображается кнопка