Фрейм на форме

Алексаша
Дата: 09.07.2019 14:55:05
Здравствуйте.

Можно ли внутри фрейма предусмотреть код, кот определяет название формы которой он принадлежит?
Dmitri Krizhanovski
Дата: 09.07.2019 15:04:21
Алексаша,

Это?
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;
Dmitri Krizhanovski
Дата: 09.07.2019 15:08:23
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;
DimaBr
Дата: 09.07.2019 15:28:49
uses Forms;

function GetParentForm(Control: TControl; TopForm: Boolean = True): TCustomForm;
DimaBr
Дата: 09.07.2019 15:36:01
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;
softwarer
Дата: 09.07.2019 15:47:19
Алексаша
Можно ли внутри фрейма предусмотреть код, кот определяет название формы которой он принадлежит?

Можно. Но такое желание обычно свидетельствует о желании криво и плохо решить задачу, которую следует решать совсем другим образом.
Алексаша
Дата: 09.07.2019 16:38:15
DimaBr,

Спасибо, подходит.