[Duvida] Canvas TextOUT

[Douglasrg]

Ola, estou montando um projeto..

Estou usando canvas, para desenhar uma linha de texto dentro de uma janela, até agora só consegui desenhar a linha de texto na minha area de trabalho, ou dentro do meu form, mas como vou trabalhar com DLL, quero que o texto seja imprimido dentro da janela onde minha DLL foi injetada.

Codigo atual:

begin
 dll := TCanvas.Create;
try
 dll.Handle:=GetDC(0);
 dll.Brush.Style := bsClear;
 dll.TextOut(10, 10, 'Criando Menus');
finally
 dll.free;
end;

Edited July 3, 2012 at 05:16 PM by Douglasrg

[bsccara]

Tens de passar à função o DC da janela onde queres desenhar; 'GetDC(0)' dá um handle para o écran todo.

[Douglasrg]

Topico resolvido, acabei usando o handle de forma errada.

ja pode fechar.

Aqui o codigo para quem quiser ver como ficou

var
Menu: HWND;
begin
Menu:= FindWindow(nil,'Handle');
 dll := TCanvas.Create;
try
 dll.Handle:=GetDC(Menu);
 dll.Brush.Style := bsClear;
 dll.TextOut(10, 10, 'Criando Menus na tela.');
finally
dll.free;
end;
end;

Edited July 3, 2012 at 08:59 PM by Douglasrg