円形のフォームを作りたいのですが

解決

jil 2004-02-03 21:51:23 No: 6940

円形のフォームなんかあると面白そうだなと思い、その作成方法を聞ければと思っています。何かよいヒントはありませんか？

たかみちえ URL 2004-02-03 22:10:50 No: 6941

フォームの一部を透明にする(なくす)には、リージョンを生成し、フォームをその型に合わせるという方法をとるそうです。
DelphianWorldに、それを代行してくれる(ビットマップからリージョンを作ってフォームをその形にするなど)コンポーネントがあったはず。
見てみてはいかがでしょう？

jok 2004-02-03 22:24:43 No: 6942

こんな感じ

procedure TForm1.FormCreate(Sender: TObject);
var
  hR:HRGN;
begin
  Width := 220;
  Height := 220;
  hR := CreateEllipticRgn(10,10,210,210);
  SetWindowRgn(Handle,hR,true);
end;

jil 2004-02-05 21:49:06 No: 6943

ありがとうございます。とても参考になりました。思わぬ収穫でした。