Moin Sharkx,
probier's mal so:
Delphi-Quellcode:
procedure TForm1.FormPaint(Sender: TObject);
var
hDC : DWORD;
begin
hDC := GetDC(GroupBox1.Handle);
try
TextOut(hDC,24,52,'Username:',9);
finally
ReleaseDC(GroupBox1.Handle,hDC);
end;
end;
oder so:
Delphi-Quellcode:
procedure TForm1.FormPaint(Sender: TObject);
var
hDC : DWORD;
begin
hDC := GetDC(GroupBox1.Handle);
try
with TCanvas.Create
do begin
Handle := hDC;
TextOut(24,52,'
Username:');
free;
end;
finally
ReleaseDC(GroupBox1.Handle,hDC);
end;
end;
Du schreibst zwar auf die Zeichenfläche des Formulares, überdeckst aber diese mit der Groupbox.
Plazier mal die Groupbox so, dass ein Teil des Textes auf dem Formular und ein Teil auf der GroupBox stehen müsste, dann kannst Du sehen, dass tatsächlich etwas ausgegeben wird, Du es nur nichr sehen kannst.