Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Delphi Новый топик    Ответить
 Фрейм на форме  [new]
Алексаша
Member

Откуда: Левый берег
Сообщений: 347
Здравствуйте.

Можно ли внутри фрейма предусмотреть код, кот определяет название формы которой он принадлежит?
9 июл 19, 14:55    [21923487]     Ответить | Цитировать Сообщить модератору
 Re: Фрейм на форме  [new]
Dmitri Krizhanovski
Member

Откуда:
Сообщений: 490
Алексаша,

Это?
procedure TFrame2.bnSecondClick(Sender: TObject);
var
  wc: TWinControl;
begin
  wc := Parent;
  repeat
    if wc.InheritsFrom(TForm) then
      Break
    else
      wc := wc.Parent;
  until Parent.InheritsFrom(TForm);
  ShowMessage(wc.Name);
end;
9 июл 19, 15:04    [21923496]     Ответить | Цитировать Сообщить модератору
 Re: Фрейм на форме  [new]
Dmitri Krizhanovski
Member

Откуда:
Сообщений: 490
Dmitri Krizhanovski,

не тот цикл скопировал:
procedure TFrame2.bnSecondClick(Sender: TObject);
var
  wc: TWinControl;
begin
  wc := Parent;
  while not wc.InheritsFrom(TForm) do
    wc := wc.Parent;
  ShowMessage(wc.Name);
end;
9 июл 19, 15:08    [21923498]     Ответить | Цитировать Сообщить модератору
 Re: Фрейм на форме  [new]
DimaBr
Member

Откуда:
Сообщений: 11128
uses Forms;

function GetParentForm(Control: TControl; TopForm: Boolean = True): TCustomForm;
9 июл 19, 15:28    [21923512]     Ответить | Цитировать Сообщить модератору
 Re: Фрейм на форме  [new]
DimaBr
Member

Откуда:
Сообщений: 11128
Dmitri Krizhanovski
procedure TFrame2.bnSecondClick(Sender: TObject);
var
  wc: TWinControl;
begin
  wc := Parent;
  while not wc.InheritsFrom(TForm) do // ws = nil - AV
    wc := wc.Parent; 
  ShowMessage(wc.Name);
end;
9 июл 19, 15:36    [21923519]     Ответить | Цитировать Сообщить модератору
 Re: Фрейм на форме  [new]
softwarer
Member

Откуда: 127.0.0.1
Сообщений: 57371
Блог
Алексаша
Можно ли внутри фрейма предусмотреть код, кот определяет название формы которой он принадлежит?

Можно. Но такое желание обычно свидетельствует о желании криво и плохо решить задачу, которую следует решать совсем другим образом.
9 июл 19, 15:47    [21923537]     Ответить | Цитировать Сообщить модератору
 Re: Фрейм на форме  [new]
Алексаша
Member

Откуда: Левый берег
Сообщений: 347
DimaBr,

Спасибо, подходит.
9 июл 19, 16:38    [21923593]     Ответить | Цитировать Сообщить модератору
Все форумы / Delphi Ответить