くだすれDelphi（超初心者用）その１３

>>156
私の環境だと以下のコードでちゃんと透明になりますし、フォームを
移動してもついてきますよ。
Button1 をクリックすると 2 ポイントずつフォントが大きくなります。

procedure TForm1.FormPaint(Sender: TObject);
begin
  with Canvas do
  begin
    Font.Assign(Self.Font);
    Font.Size := Font.Size + Tag;
    Brush.Style := bsClear;
    TextOut(10, 10, 'lkhnoihcw');
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Tag := Tag + 2;
  Invalidate;
end;