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.