Можно ли перевести прогу в Design-Time

← →
allucard (2007-04-20 10:16) [0]

Доброго дня.

Возможно ли перейти в режим Design-time написав например доп. прогу настройки?

Т.е. чтоб некоторые компоненты добавлять по ходу работы проги и менять их розмещение на форме.

Спасибо.

← →
clickmaker © (2007-04-20 10:18) [1]

> некоторые компоненты добавлять по ходу работы проги и менять
> их розмещение на форме

это можно и в рантайме.
Соотв. кнопки или меню + TSomeCompnent.Create(), Comp.Parent := Form, Comp.Left := ...

← →
allucard (2007-04-20 10:25) [2]

> clickmaker © (20.04.07 10:18) [1]

Мне нужно чтоб это мог делать пользователь.

Напр нажал кнопку, форма перешла в режим добавки компонентов, где можно добавить и перемещать кнопки например.

← →
_Аноним (2007-04-20 10:28) [3]

> allucard

Ну тебе про что и сказали.
придется руками реализовывать, использовать дизайнер от IDE не выйдет

← →
clickmaker © (2007-04-20 10:28) [4]

а какие трудности?

← →
ANB © (2007-04-20 10:35) [5]

> использовать дизайнер от IDE не выйдет

Есть способ частичного подключения дизайнера, но не так он прост и полной функциональности не добиться.

Автору - лучше не думать в эту сторону, т.к. новую делфи писать довольно долго (особливо в одиночку) и граблей ты на этом пути соберешь немерянно.

← →
allucard (2007-04-20 10:35) [6]

> _Аноним (20.04.07 10:28) [3]

Что-то тип своего дизайнера.

А есть вообще такие вещи(компоненты) уже готовые?
Которые например раб. в двух режимах Run-Time, где их двигать нельзя и Design-time - где можно?

Думаю не я один с таким сталкивался.

http://www.delphikingdom.ru/asp/viewitem.asp?catalogid=342

..вот создаем
procedure TFrm_Add.Btn_OKClick(Sender: TObject); var ico: TIcon; btn: TPathButton; begin //Создаем иконку btn := TPathButton.Create(Self); With btn do begin Parent := Frm_RunPanel.ScrollBox1; SetBounds( 1, 1, 32, 32 ); Name := "FastButton"+IntToStr(FBC); Anchors := [akTop, akLeft]; Hint := LEHint.Text; //Описание иконки inc(FBC); OnClick :=FastButtonClick; end; end; //Щелчек по клавише procedure TFrm_Add.FastButtonClick(Sender: TObject); var i: byte; path: string; begin for I := 1 to 5 do begin Path := (Sender as TPathButton).PathArray[i]; if path<>"" then Showmessage(Path); end; end;

← →
allucard (2007-04-20 11:50) [9]

Можно ли перевести прогу в Design-Time Найти похожие ветки