ここDelphi7で、音量、バッテリー、時計、ネットワークなどのデフォルトのシステムアイコンをシミュレート する小さなアプリを作成しました。
ここですべてのMicrosoftの推奨事項に従おうとしていますhttp://msdn.microsoft.com/en-us/library/aa511448.aspx#flyouts
ウィンドウをフライアウトのように見せるために、私は次のコードを使用しています。
//declaration
TForm1 = class(TForm)
protected
procedure CreateParams(var Params: TCreateParams); override;
end;
実装
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.Style := WS_POPUP or WS_THICKFRAME;
Params.ExStyle := Params.ExStyle or WS_EX_TOPMOST;
end;
私の問題は、WS_THICKFRAMEでユーザーがウィンドウのサイズを変更できることです。どうすればこれを修正できますか?