TextOut-Problem

[Fib]

Moin,
ich hoff' mal das gehört hier rein.
Also ich hab folgenden Code:

Code:

procedure TForm1.Button4Click(Sender: TObject);
var
  hwnd : Thandle;
  s : string;
begin
   hwnd := Application.handle;
   s := 'hallo du';
   if TextOut(hwnd, Form1.Left+322, Form1.Top+8, @s, 0) then ShowMessage('ja')
     else ShowMessage('nein');
end;

Das TextOut gibt zwar true zurück es wird aber nichts geschrieben. Der letzte Parameter soll eigentlich die Anzahl der Zeichen in dem String sein, allerdings gibt TextOut immmer False zurück, wenn der anders als null ist.
Was mach ich falsch?

MfG

Problem hat sich schon gelöst.

[Daniel]

...und wie hast Du es gelöst? ;-) Könnte ja auch mal für Andere interessant sein, falls sie vor dem gleichen Problem stehen.

[MaOfDe]

Problem ist Application.Handle ist vom Typ HWND, die Funktion TextOut verlangt aber einen Typ HDC.
Diese Typen sind zwar beide abgeleitet von Cardinal, aber entscheidend ist, was sich dahinter für ein Wert/eine Adresse versteckt.

Delphi-Quellcode:

hdc:=GetDC(Application.Handle);

So zeigt sich 100 pro das geforderte 'Ja', doch soweit ich weiß kann man nicht auch Application zeichnen.

[Luckie]

Delphi-Quellcode:

Form1.Canvas.Handle

Das sollte es tun. Dann landet der Text auf dem Canvas vom Fenster.

Application ist das unsichtbare Fenster der VCL. Da dürfte er nicht allzuviel sehen. ;)