Показать сообщение отдельно
  #1  
Старый 25.11.2013, 15:15
dlev2 dlev2 вне форума
Прохожий
 
Регистрация: 21.02.2013
Сообщения: 3
Репутация: 10
Печаль ошибка типов TGroupBox TImage

есть строчка
cards_massiv[a].image.Parent:=Players.player[a1];
в которой массив карт, карта - составной тип, image - указатель на компонент TImage.
Players.player - указатель на компонент TGroupbox
собственно, перемещаю карту с одного groupbox'са в другой, меняю родителя, на чем вылетает ошибка "неверные типы TWinControl и Pointer"
указатели

Код:
TCards = record
   ...
   image:PImage;
   ...
 end;


 TPlayers = record
   ...
   player:array[1..4] of ^TGroupBox;
   ...
 end;

присваивание происходило таком образом
Код:
unit1.Players.player[unit1.Players.index]:=@Unit1.Form1.GroupBox8;