Скачать: CL | DM;

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; все заработало!
Всем большущее спасибо!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.022 c