Форум: "Media";
Текущий архив: 2008.06.01;
Скачать: [xml.tar.bz2];

Вниз

Как нарисовать в делфи круг в форме2 чтоб его радиус брался уже   Найти похожие ветки 

← →
HuKoH   (2007-06-01 12:46) [0]

Как нарисовать в делфи  круг в форме2 чтоб его радиус выщитывался из формулы формы 1

---

← →
MBo ©   (2007-06-01 13:01) [1]

>Как нарисовать в делфи  круг
TCanvas.Ellipse

>чтоб его радиус выщитывался из формулы формы 1
???

---

← →
Леон ©   (2007-06-07 19:39) [2]

наверно, что-то такое:

unit Unit1;
...
type
 Form1 = class (TForm)
 ...
 private
   function FormulaIzForm1: integer;
 end;
...
end.

unit Unit2;
...
type
 Form2 = class (TForm)
 ...
 private
   procedure Button1Tыc(Sender: TObject);
 end;
...
implementation
uses Unit1;
...
 procedure Form2.Button1Tыc(Sender: TObject);
 var радиус: integer;
 begin
    радиус := Form1.FormulaIzForm1();
   Canvas.Ellipse(100-радиус, 100-радиус, 100+радиус, 100+радиус);
 end;
end.

:)

---

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

Форум: "Media";
Текущий архив: 2008.06.01;
Скачать: [xml.tar.bz2];

Наверх

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