[newnata]

Программно обеспечить размеры формы диалогвого окна такими, чтобы все видимые элементы управления не выходили за пределы формы.
(найти max left и top)

[Zylex]

Ты имееш в виду Message диалог?

[newnata]

Код:

procedure TForm2.FormCreate(Sender: TObject);
var i:integer;
   max:integer;
begin
form2.left:=max+20;
for i:=0 to ControlCount-1 do
if (controls[i] is Tform2) then
(components[i] as Tform2).
left:=max+20;

form2.top:=max+20;
for i:=0 to ControlCount-1 do
if (controls[i] is Tform2) then
(controls[i] as Tform2).
top:=max+20;
end;

Admin: Пользуемся тегами!

надо просто задать max чтобы окно открывалась и были видны все на этой форме объекты

[Zylex]

Думаю так.
Надо два max испльзовать.
Если компоненты у тебя задаются динамически то max1:=самый_правый_компонет.left+самый_правый_комп онет.width +10
max2:=самый_нижний_компонет.top+самый_нижний_компо нет.height +10

[AlexSku]

У формы

Код:

AutoSize:= true;