Форум: "Начинающим";
Текущий архив: 2007.05.13;
Скачать: [xml.tar.bz2];
Вниз
Можно ли перевести прогу в 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 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.05.13;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.056 c
