Скачать: CL | DM;

Можно ли перевести прогу в 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 - где можно?

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

---

← →
clickmaker ©   (2007-04-20 10:48) [7]

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

---

← →
Steep ©   (2007-04-20 11:08) [8]

..вот создаем
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]

> Steep ©   (20.04.07 11:08) [8]


> clickmaker ©   (20.04.07 10:48) [7]

Спасиб.
Пошёл читать.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.026 c