Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте! Я незнаю как обяснить судь вопроса и поэтому напишу как есть. У меня на форме имеется TLabel-ы, Tedit, Tpanel и кнопка. В лейбле написаны вопросы, а в капшоне панели написаны ответы. А едит служить просто для как бы контейнером для панели.Нужно перетащить панел с правильном ответом внутр едита и нажать кнопку чтобы проверить. Теперь вопрос: как узнать что панель находится внутри едита? Заранее большое спасибо!!!

Вопрос задал: Beknur (статус: Посетитель) Вопрос отправлен: 4 января 2010, 08:41 Состояние вопроса: открыт, ответов: 0.

Мини-форум вопроса

vlsavkin (статус: 2-ой класс), 4 января 2010, 16:07 [#1]: У всех панелей dragmode:=dmautomatic; procedure TForm1.Edit1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); begin if (source is tpanel) then accept:=true; end; procedure TForm1.Panel1EndDrag(Sender, Target: TObject; X, Y: Integer); begin (target as tedit).Text:=(sender as tpanel).caption; end;// так для каждой панели

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.