Canvas zeichnet/schreibt mir nix :/

[Christian Seehase]

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.