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

[Sveta22]

С помощью компонент ToolBar все работает отлично, то что нужно, но там проблемка в том (не знаю можно исправить или нет) если ставишь свойство ShowCaptions то длина кнопки зависит от названия а мне нужны кнопки побольше

[VVM]

Хорошо, но где-то ведь должно быть записано: если user - то показываем ту,ту и ту кнопку, они запускают эту, эту и эту программы соответственно. А если админ - то показываем, например, 12 кнопок, которые запускают 12 программ соответственно.

[Sveta22]

Хорошо, но где-то ведь должно быть записано: если user - то показываем ту,ту и ту кнопку, они запускают эту, эту и эту программы соответственно.

Да просто в файле конфигураций меняю путь к файлу )

[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;
    if FileExists('C:\1.exe') then
    begin
      B[i].Visible := true;
      P := P + Step;
    end;
  end;
end;

end.

[Sveta22]

VVM Спасибо то что нужно)

[mihali4]

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

С помощью компонент ToolBar все работает отлично, то что нужно, но там проблемка в том (не знаю можно исправить или нет) если ставишь свойство ShowCaptions то длина кнопки зависит от названия а мне нужны кнопки побольше

Autosize у всех кнопок - в False.
А обманем вот так: пусть самая длинная надпись такая "Работа". Добавим в капшэн этой кнопки по несколько пробелов спереди и сзади этого слова и получим кнопки гораздо шире...