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

Здравствуйте.

Можно ли внутри фрейма предусмотреть код, кот определяет название формы которой он принадлежит?

Алексаша,

Это?

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,

не тот цикл скопировал:

procedure TFrame2.bnSecondClick(Sender: TObject);
var
  wc: TWinControl;
begin
  wc := Parent;
  while not wc.InheritsFrom(TForm) do
    wc := wc.Parent;
  ShowMessage(wc.Name);
end;

uses Forms;

function GetParentForm(Control: TControl; TopForm: Boolean = True): TCustomForm;

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;

Алексаша
Можно ли внутри фрейма предусмотреть код, кот определяет название формы которой он принадлежит?

Можно. Но такое желание обычно свидетельствует о желании криво и плохо решить задачу, которую следует решать совсем другим образом.

DimaBr,

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