通常のキャンバス/テキストアウトでUpdateLayeredWindow

Question

キャンバスでフォームに描画してからupdatelayeredwindowを使用する方法はありますか？フォームは表示されませんが、テキストのみを表示するような超越したフォームのようなテキストですか？もしそうでなければ、キャンバス（opengl/directx）だけで、ある種の超越的なフォームを作る方法があるでしょうか？私はすべてのウィンドウの上部にコマンドを描画したいと思います。

Answer 1

フォームのTransparentColorプロパティを 'True'に設定してから、フォームの色をTransparentColorValueの同じ色に設定すると、フォームのすべてのクライアント領域が透明になります。あなたが使用してDelphiのバージョンは「TransparentColor [値]を」持っていない場合は、API呼び出しで同じことを達成することができますプロパティ：

Color := clBlack; 
    SetWindowLong(Handle, GWL_EXSTYLE, 
     GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_LAYERED); 
    SetLayeredWindowAttributes(Handle, 0, 255, LWA_COLORKEY); 

は、フォームのクライアント領域が透明になります。通常どおりにあなたはキャンバスに描くことができます。もちろん

procedure TForm1.FormPaint(Sender: TObject); 
begin 
    Canvas.Font.Color := clWhite; 
    Canvas.TextOut(0, 0, 'Text'); 
end; 

は、あなたはまた、その後、別のフォントの色を何でも透明色を持つフォーム上のラベルを置くことができます。