Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.06.25;
Скачать: CL | DM;

Вниз

Создание компонентов на форме в запущенном приложении   Найти похожие ветки 

 
alex007 ©   (2006-06-04 20:10) [0]

Я хочу сделать программу которая бы создавала различные компоненты по щелчку пользователя на форме в определённом месте. Мой вопрос: как сделать чтобы эти компоненты не "накладывались" друг на друга или же меняли свое местоположение после щелчка?

...
var
 i,k,j:integer;
 Form1: TForm1;
 Checkboxes:array[1..500] of TCheckbox;
 obj1: string;
 p:tpoint;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
i:=1;
end;

procedure TForm1.Checkbox1Click(Sender: TObject);
begin
click_form("checkbox");
end;

procedure TForm1.click_form(obj: string);
begin
obj1:=obj;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
panel1.Width:=form1.Width-10;
panel1.Width:=form1.height-10;
panel1.Left:=5;
panel1.Top:=5;
end;

procedure TForm1.FormResize(Sender: TObject);
begin
panel1.Width:=form1.Width-20;
panel1.height:=form1.height-56;
panel1.Left:=5;
panel1.Top:=5;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
panel1.Width:=form1.Width-20;
panel1.height:=form1.height-56;
panel1.Left:=5;
panel1.Top:=5;
end;

procedure TForm1.Panel1Click(Sender: TObject);
begin
getcursorpos(p);
if obj1="checkbox" then begin
checkboxes[i]:=TCheckbox.create(panel1);
checkboxes[i].name:="Checkbox"+inttostr(i);
checkboxes[i].Parent:=panel1;
checkboxes[i].Caption:="Ваш текст";
checkboxes[i].left:=p.x-form1.left-4;
checkboxes[i].top:=p.y-form1.top-45;
end;
...
I:=I+1;
end;

end;
end.



 
Kolan ©   (2006-06-04 21:17) [1]


> Мой вопрос: как сделать чтобы эти компоненты не "накладывались"
> друг на друга или же меняли свое местоположение после щелчка?
>
>

Мой ответ - правильно выставляй значения Top и Left.



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

Текущий архив: 2006.06.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.033 c
15-1148898228
vidiv
2006-05-29 14:23
2006.06.25
"http://www.microsoft.com/rus/getthefacts/topics/ipi.mspx"...


2-1149606488
media
2006-06-06 19:08
2006.06.25
DSpack


15-1148828917
redlord
2006-05-28 19:08
2006.06.25
игры для мобил


3-1146638862
G707
2006-05-03 10:47
2006.06.25
Необходимо сформировать следующий запрос


15-1149230575
Prohodil_Mimo
2006-06-02 10:42
2006.06.25
что такое: полевая сторона?