| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как нарисовать в делфи круг в форме2 чтоб его радиус брался уже [D6]
HuKoH © (2007-06-01 12:46:00)Как нарисовать в делфи круг в форме2 чтоб его радиус выщитывался из формулы формы 1
Леон (2007-06-07 19:39:00) [1]наверно, что-то такое:
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.
:)
MBo (2007-06-01 13:01:00) [2]>Как нарисовать в делфи круг
TCanvas.Ellipse
>чтоб его радиус выщитывался из формулы формы 1
???
| |
