本人是一個新手,請問一下,怎樣可以做到gui的界面是一個圓形的呢？ 發表人 - 蔚空_0 於 2005/04/02 11:42:10

procedure TForm1.FormCreate(Sender: TObject);
var
  Rgn :HRGN;
begin
  ClientWidth  := 100;
  ClientHeight := 100;
  Rgn := CreateEllipticRgn(0,0,ClientWidth,ClientHeight);
  SetWindowRgn(Handle, Rgn, TRUE);
  DeleteObject(Rgn);
end;

把 BorderStyle := bsNone; 發表人 - wameng 於 2005/04/02 12:02:09

使用Delphi7 放置任意圖形於TForm上(Image或Shape等都可) Form.TransparentColor設為True Form.TransparentColorValue設定為欲被穿透的顏色,不要包含在'任意圖形'中的顏色即可. ps: Win98好像不支援此效果