Обновлено: 01 декабря, 2018

Как сделать прозрачный фон текста? в Delphi

Пример:

procedure TForm1.Button1Click(
Sender: TObject); 
var
  OldBkMode : integer; 
begin
  with Form1.Canvas do
  begin
    Brush.Color := clRed; 
    FillRect(Rect(0, 0, 100, 100)); 
    Brush.Color := clBlue; 
    TextOut(10, 20, 'Not Transparent!'); 
    OldBkMode := SetBkMode(Handle, TRANSPARENT); 
    TextOut(10, 50, 'Transparent!'); 
    SetBkMode(Handle, OldBkMode); 
  end; 
end;

Рейтинг автора

Автор статьи

Юрий

Программист Delphi, MySQL. Образование: высшее. Специальность: программное обеспечение информационных технологий.

Написано статей

439