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

解決

jil 2004-02-03 12:51:23 No: 6940 IP: 192.*.*.*

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

たかみちえ URL 2004-02-03 13:10:50 No: 6941 IP: 192.*.*.*

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

編集削除

jok 2004-02-03 13:24:43 No: 6942 IP: 192.*.*.*

こんな感じ

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 12:49:06 No: 6943 IP: 192.*.*.*

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

編集削除