Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Компонент, который бы имел и Hadnle и Canvas

Автор: Delphist 28.10.2005, 13:47

Есть ли у Delphi компонент кроме TForm который бы имел свойства Canvas и Handle. Если нет, то посоветуйте аналогичный бесплатный компонент.

Автор: ~FoX~ 28.10.2005, 13:57

TPanel.

Автор: Delphist 28.10.2005, 13:59

Цитата

TPanel.

У TPanel нет свойства Canvas.

Автор: _hunter 28.10.2005, 13:59

хм... интересный запрос... TTreeView есть...

Автор: Delphist 28.10.2005, 14:02

Цитата(_hunter @ 28.10.2005, 13:59)

хм... интересный запрос... TTreeView есть...

TTreeView не может содержать других Control'ов

Автор: ~FoX~ 28.10.2005, 14:03

Ну как это енту то? smile

Код


procedure TForm1.Button1Click(Sender: TObject);
var
 C: TCanvas;
begin
 try
   c := TCanvas.Create;
   c.Handle := GetDC(Panel1.Handle);
   c.Ellipse(Rect(10, 10, 30, 30));
 finally
    c.Free;
 end;
end;

Автор: Delphist 28.10.2005, 14:05

Цитата

Ну как это енту то? smile

Код


procedure TForm1.Button1Click(Sender: TObject);
var
 C: TCanvas;
begin
 try
   c := TCanvas.Create;
   c.Handle := GetDC(Panel1.Handle);
   c.Ellipse(Rect(10, 10, 30, 30));
 finally
    c.Free;
 end;
end;

Молодец! Способ хитрый. Ну все же хотелось, чтобы это все содержалось в одном компоненте.

Автор: _hunter 28.10.2005, 14:16

ну и напиши наследника...
+ это

Цитата

TTreeView не может содержать других Control'ов

уже не честно smile

можеш фрейм юзать...

Автор: Delphist 28.10.2005, 14:36

Цитата(_hunter @ 28.10.2005, 14:16)

уже не честно smile

можеш фрейм юзать...

Что - то не понятны две последних фразы.

Автор: _hunter 28.10.2005, 15:02

предпоследняя имеет непосредственное отношение к моей цитате ( ибо в первоначальном вопросе о возможностях иметь детей ничего не говорилось )
а последняя имеет прямое отношение к твоему второму вопросу. ( хотя щас глянул -- канвы у него тоже нету. так что проще всего просто добавить ее ( канву ) к панели )