Проблема с созданием канвы.

← →
Dred © (2003-11-16 21:26) [0]

Мастера нужен ваш help.Воощем из обработчика первой формы надо создать канву во второй , но че то не получается. Вот пример:
procedure TForm1.Button1Click(Sender: TObject);
var
Diam, //Диаметр окружности
x,y : integer; //координаты первай вершины
begin
Form2.Canvas.Create;
With Form2.Canvas do
begin
Brush.Color:=clred;//заливка красным
Ellipse(x,y,x+Diam ,y+Diam); //окружность
TextOut(x+10,y+10,Form1.SpinEdit1.Text); //ввод символа в
end;
Form1.Hide;
Form2.Show;
end;
Спосибо

← →
Eagle Owl © (2003-11-16 22:28) [1]

> Form2.Canvas.Create;

Это убери. Канва и так создаётся при создании формы.
К тому же, так не правильно...

← →
Dred © (2003-11-16 22:54) [2]

Убирал ,не помогает и как правильно поскажи.

← →
Каркуша (2003-11-16 23:02) [3]

Form1.Hide;
Form2.Show;
поставь в начало процедуры

← →
Господин (2003-11-16 23:10) [4]

procedure TForm1.Button1Click(Sender: TObject);
var
Diam, //Диаметр окружности
x,y : integer; //координаты первай вершины
begin
Form1.Hide;
Form2.Show;
With Form2.Canvas do
begin
Brush.Color:=clred;//заливка красным
Ellipse(x,y,x+Diam ,y+Diam); //окружность
TextOut(x+10,y+10,Form1.SpinEdit1.Text); //ввод символа в
end;
end;

← →
Плохиш_ (2003-11-16 23:47) [5]

> Dred © (16.11.03 21:26)

> With Form2.Canvas do
> begin
> Brush.Color:=clred;//заливка красным
> Ellipse(x,y,x+Diam ,y+Diam); //окружность
> TextOut(x+10,y+10,Form1.SpinEdit1.Text); //ввод символа
> в
> end;

Вообще-то это пищется в OnPaint формы TForm2

> Плохиш_ (16.11.03 23:47) [5]
>
> > Dred © (16.11.03 21:26)
>
>
> > With Form2.Canvas do
> > begin
> > Brush.Color:=clred;//заливка красным
> > Ellipse(x,y,x+Diam ,y+Diam); //окружность
> > TextOut(x+10,y+10,Form1.SpinEdit1.Text); //ввод символа
>
> > в
> > end;
>
>
> Вообще-то это пищется в OnPaint формы TForm2

Вообщето мне этот алгоритм надо в функцию формирования всунуть, которая описана в модуле первой формы, возможно ли такое?
Спасибо всем за советы)

Проблема с созданием канвы. Найти похожие ветки