SetTextColor (ID:12886)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ColorToRGB() が使えそうです procedure TForm1.Button1Click(Sender: TObject); begin with Canvas do begin SetTextColor(Handle,ColorToRGB(clActiveCaption)); Windows.TextOut(Handle,20,20,'TEST',4) end; end;