[omaryan]

Код:

type
  TForm1 = class(TForm)
    Button1: TButton;
  private
    procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.WMPaint(var Message: TWMPaint);
begin
  Canvas.Brush.Style := bsClear;
  Canvas.TextOut(1, 1, 'abcde');
end;

Как изменить WMPaint, чтобы она срабатывала после нажатия ALT+TAB?

[ApplicatiOn]

Код:

if (getasynckeystate(VK_MENU)=-32768) and (getasynckeystate(VK_TAB)=-32768) then
...

[omaryan]

Что означает -32768?

[ApplicatiOn]

что клавиша нажата