Похоже моя глухота прогрессирует и повредила мне моск, пол дня бьюсь... 
Суть такова:
Есть MDIForm, в ней соответственно генирятся MDIChild-ы
| Код |
procedure TMainRGC.ToolButton1Click(Sender: TObject);
begin
Application.CreateForm(TEditForm, EditForm);
// TEditForm.Create(Self);
end;
|
В чилде есть стринггрид в котором по клику появляются кнопки и комбобоксы, создаваемые динамически
Генерим:
| Код |
var
BOpen: TButton;
//........................
procedure TEditForm.FormCreate(Sender: TObject);
begin
with Sender as TEditForm do begin
Bopen := TButton.Create(Self);
BOpen.Parent := Self;
BOpen.Height := StringGrid1.DefaultRowHeight;
BOpen.Width := StringGrid1.DefaultRowHeight;
BOpen.Caption := '*';
BOpen.OnClick := BOpenClick;
BOpen.Visible := false;
end;
end;
|
Показываем кнопу по клику на гриде
| Код |
procedure TEditForm.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
var CanSelect: Boolean);
var
CR: TRect;
begin
with (Sender as TStringGrid) do begin
if ACol = 3 then begin
CR := StringGrid1.CellRect(ACol, ARow);
BOpen.Left := CR.Right - BOpen.Width+3;
BOpen.Top := CR.Top+Top+2;
BOpen.Visible := true;
end //if
else BOpen.Visible := false;
end; //with
end;
|
В общем то все нормально работает если дочернее окно одно или я работаю с последним открытым окном, но если их много, то в какое бы окно я не тыкнул, кнопка появляется только в последнем...
Пробовал указывать форму и сам грид в качестве предка кнопке BOpen.Parent := .....
Пробовал обращаться к гриду так
| Код |
with (Sender as TEditForm).StringGrid1 do begin
|
Вызывает инвалид типкаст 
З.Ы.: Первый раз делаю МДИ приложение
|
