procedure TForm2.CreateParams(var Params: TCreateParams); begin inherited CreateParams(Params);
with Params do begin Style := Style or WS_CHILD; WndParent := Application.MainForm.Handle; end; end;
Postar um comentário
Nenhum comentário:
Postar um comentário