[Sveta22]

Добрый день. Пожалуйста срочно нужна помощь.
Я уже создавала одну тему насчет того как сделать кнопки что бы если одна была не видима через проверку Button1.Visible := FileExists('c:/1.exe'); то другая ниже ее кнопка поднялась на ее место, мне предложили через координаты это сделать, плизз покажите пример а то что то совсем не соображу как это сделать программно???

[Grunch]

Код:

1 2 3 4 5

if not Button1.Visible then begin   Button2.Top:=Button1.Top;   Button2.Left:=Button1.Left; end;

[Sveta22]

Спасибо..сейчас проверю

[Sveta22]

Блин так не пойдет, много кнопок, а как с помощью массива такое сделать?

[lmikle]

Собственно, тебе надо 2 вещи:
1. Создать массив ссылок на кнопки
2. Сделать процку, кторая их разместит по вертикали или горизонтали с учетом видимости.

Кстати, альтернативный вариант. Делать кнопки не невидимыми, а запрещенными (св-во Enabled). Тогда не придется их двигать.

А теперь к коду. Заполнение масива расчитано на то, что кнопки лежат на самой форме и являются TButton.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47

type   TForm1 = class(TForm)     Button1: TButton;     Button2: TButton;     Button3: TButton;     Button4: TButton;     Button5: TButton;     procedure FormCreate(Sender: TObject);     procedure FormDestroy(Sender: TObject);   private     { Private declarations }     FButtonList : TList;     procedure ReArrangeButtons(ASpace : Integer);   public     { Public declarations }   end;   ...   procedure TForm1.FormCreate(Sender: TObject); var   I : Integer; begin   FButtonList := TList.Create;   For I := 0 To Self.ComponentCount-1 Do     If Self.Components[i] Is TButton Then       FButtonList.Add(Self.Components[i]); end;   procedure TForm1.FormDestroy(Sender: TObject); begin   FButtonList.Free; end;   procedure TForm1.ReArrangeButtons(ASpace: Integer); var   I : Integer;   ALeft : Integer; begin   ALeft := ASpace; // Place of 1st button   For I := 0 To FButtonList.Count-1 Do     If TButton(FButtonList[i]).Visible Then       Begin         TButton(FButtonList[i]).Left := ALeft; // Place button         ALeft := ALeft + TButton(FButtonList[i]).Width + ASpace; // Calc left of next button       End; end;

[Grunch]

Хм. Пусть у нас есть два массива:

Код:

1 2	Positions=array of array integer; //здесь хранятся координаты Top кнопок в оригинальном положении Buttons=array of array of TButton;

(Я так понял кнопки расположены рядами)
Пусть кнопка Buttons[i,j] не видна, тогда надо все кнопки что под ней сдвинуть вверх:

Код:

1 2 3 4

for k:=i+1 to <количество строк кнопок> - 1 do begin   Buttons[k,j].Top:=Positions[k-1,j]; end;

Когда кнопка снова стала видна:

Код:

1 2 3 4

for k:=i+1 to <количество строк кнопок> - 1 do begin   Buttons[k,j].Top:=Positions[k,j]; end;

[Sveta22]

Эх что-то у меня ничего не получается(((

[lmikle]

Что и где не получается?

[Sveta22]

как этот массив ссылок создать? ( простите за такую глупость)

[Sveta22]

А мож просто создать динамические кнопки?

[lmikle]

Дык код мой посомтри. Он этот массив и создает во время создания формы (FormCreate).

[Амон]

Не совсем понял суть проблемы...Если надо чтобы при разных ситуациях одна и та же кнопка выполняла разные процедуры при нажатии то просто напишите все эти процедуры и назначайте на одну кнопку их в процессе выполнения программы (Button1.OnClick := 'название процедуры')
Либо напишите одну процедуру, но сделайте в ней case или группу if.

Если вам надо чтобы у вас было куча кнопок в одном месте, но одна всегда сверху (не по координатам, а по слоям) то используйте для поднятия кнопки BringToFront (Button1.BringToFront) ну или для опускания SendToBack (Button1.SendToBack).

[Sveta22]

Спасибо всем буду пробывать

[mak-karpov]

пункт 2.4.

2.4. Делайте заголовок темы информативным, старайтесь избегать заголовков типа: "Помогите!!!". Так же настоятельно советуем избегать излишнего использования ЗАГЛАВНЫХ букв.

.