TChildForm - изменение размеров

← →
Fostr (2005-02-01 10:42) [0]

Доброе время суток. уважаемые знатоки Delphi!
Прошу помощи! Есть fsMDIForm и есть fsMDIChild. В ChildForm есть Memo1 на опред. расстоянии от левого края ChildForm. Хочу, что бы при изменеии размеров ChildForm Memo1 так же меняло свое положение. Для этого делаю следующее:

procedure TChildForm.FormResize(Sender: TObject);
var
w:integer;
begin
w:=(ActiveMDIChild as TChildForm).Width;
Memo1.Left:=Memo1.Left+Round(W/10);
end;

При изменении размеров выпадает сообщение:Access Violation at address 0046DAD0 ...

Как с этим бороться? Может я что то не так делаю? Заранее спасибо!

← →
Александр Иванов © (2005-02-01 10:47) [1]

procedure TChildForm.FormResize(Sender: TObject);
var
w:integer;
begin
w:=(Sender as TChildForm).Width;
Memo1.Left:=Memo1.Left+Round(W/10);
end;

← →
Skier © (2005-02-01 10:47) [2]

А выяснить чему равно ActiveMDIChild не пробовал ?
Да и вообще дебагером походить ?

← →
Fostr (2005-02-01 10:53) [3]

А выяснить чему равно ActiveMDIChild не пробовал ?
Да и вообще дебагером походить ?

Первое не пробовал, второе делал - эффект то же.
Зато с w:=(Sender as TChildForm).Width; все заработало!
Всем большущее спасибо!

TChildForm - изменение размеров Найти похожие ветки