Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Делфи _ Динамич генерация Компонентов в процессе вып прог

Автор: Shadow 26.08.2003 2:40

Привет
-=-=-
Возник новый вопрос
-=-=-=
Допустим точнее не допустим а имееем
поля для вывода рисунка Image1:TImage
внем открывеются файлы с метсом располжениея подземлей
кабеля 6 Кв.  
-=-=-
Могу генерировать новые -=компоненты=- например Panel:Tpanel;
которые будут указывать располжения муфт на этом кабеле
но прородителем Панэлек неполучется поставить Image
все что угодно кроме Image
-=-=
оно и так работает но хотельось бы именно Image
что упростило бы сохранение этих муфт в базе данных
и последующих их вывод
-=-=-=-

Автор: ___ALex___ 26.08.2003 3:41

что не получается-то?я так и не понял из твоего коверканого русского языка...

Автор: Vit 26.08.2003 5:35

Приведи лучше код который не работает

Автор: Shadow 26.08.2003 20:51

на событие в PopupMenu

Код
procedure TForm7.Add1Click(Sender: TObject);
Var MyPan:Tpanel;

begin
MyPan := TPanel.Create(Image1);
with MyPan do
BEGIN
 Parent :=ScrollBox1; (*** если поставить Parent:=Image1 то не работает ***)
 height := 4;
 width := 4;
 caption := 'M';
 MyPan.Cursor:=crHandPoint;
 MyPan.Color:=clLime;
 left:=wx+Image1.Left;
 top:=wy+Image1.Top;
END;

end;

procedure TForm7.Image1MouseMove(Sender: TObject;
 Shift: TShiftState; X, Y: Integer);
begin
 wx:=x;
 wy:=y;
 StatusBar1.Panels[0].Text:=IntToStr(x);
 StatusBar1.Panels[1].Text:=IntToStr(y);
end;

end.

Автор: Vit 26.08.2003 21:47

И не будет работать - это не оконный класс...

Автор: Shadow 26.08.2003 23:11

:-/
-=-=-=-=
тоесть ничего по етому поводу нельзя придумать
-=-=-=-
только если вставить Image куданить еще типа ScrollBox
-=-=-=-=
:D

Автор: ___ALex___ 26.08.2003 23:21

да, второе подойдёт
ложи TImage на TPanel

Автор: Shadow 27.08.2003 2:10

:D
-=-=-
Все работает
-=-=--=
только координаты приходиться модифицировать
хитрым сопособом
-=-=-=