![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Наследование форм и Parent контрола [D7, WinXP]
samz © (2008-10-02 03:19:00)Здравствуйте.
Ситуация такая:
Форма B - наследник формы A этого же проекта.
На форме A имеется некий контрол.
Как в design-time на форме B поменять у этого контрола свойство Parent (например переместить с одной панели на другую)?
Спасибо.
Vlad Oshin (2008-10-02 15:31:00) [1]и как это сделать в
> design-time
?
Jeer (2008-10-02 15:14:00) [2]
>
> ООП рулит - у наследника можно переопределить, но не удалить
> поле...
Неужели сам дошел ? :)
samz (2008-10-02 11:48:00) [3]
>tytus
Ctrl+X(на первой форме)
ООП рулит - у наследника можно переопределить, но не удалить поле...
Плохиш (2008-10-02 10:18:00) [4]
> samz (02.10.08 03:19)
Форма B не имеет таких прав на этот контрол.
Jeer (2008-10-02 10:05:00) [5]потому, что будете получать вот это:
http://slil.ru/26198289
tytus (2008-10-02 09:54:00) [6]Если
(например переместить с одной панели на другую)?
и панели находятся на разных формах - то переместитьконтрол можно Ctrl+X(на первой форме) потом CTRL+V(на другой)
Или я что-то не так понял?
Vlad Oshin (2008-10-02 09:47:00) [7]может я тупой, но это как ?
type
TForm1 = class(TForm)
Panel1: TPanel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
form2.show;
end;
//====================
type
TForm2 = class(TForm1)
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
//=============
пустая форма, чего там дизайнить?
Jeer (2008-10-02 09:43:00) [8]Вопрос:
У меня мама - крокодил, я крокодиленок, хвост растет сзади, есс-но.
Я хочу братика, но чтобы хвост у него рос между лопаток.
Как мне сделать это ?
Ответ:
Поменять маму.