안녕하세요?
투명폼 을 아래와 같이 만들어 로딩 했는데요,
문제는 폼에 로딩된 이미지에서 마우스 이벤트가 동작을 하지 않네요.
어떻게 하면 좋을지요? 고수님들 답변좀... ^^
procedure TMAINFORM.FormCreate(Sender: TObject);
var
FullRgn, ClientRgn : THandle;
ImageRgn: THandle;
Margin, X, Y: Integer;
begin
SetWindowLong(MAINFORM.Handle,
GWL_STYLE,
GetWindowLong(Handle,GWL_STYLE) and not WS_CAPTION);
Height := ClientHeight;
Margin := (Width - ClientWidth) div 2;
FullRgn := CreateRectRgn(0, 0, Width, Height);
X := Margin;
Y := Height - ClientHeight - Margin;
ClientRgn := CreateRectRgn(X, Y, X + ClientWidth, Y + ClientHeight);
CombineRgn(FullRgn, FullRgn, ClientRgn, RGN_DIFF);
X := Margin;
Y := Height - ClientHeight - Margin;
X := X + Image1.Left;
Y := Y + Image1.Top;
ImageRgn := CreateRectRgn(X, Y, X + Image1.Width, Y + Image1.Height);
CombineRgn(FullRgn, FullRgn, ImageRgn, RGN_OR);
SetWindowRgn(Handle, FullRgn, True);
end;
위와 같이 코드를 넣었구요,
폼 로딩후 이미지에서 마우스 이벤트가 전혀 동작을 하지 않습니다.
그리고, Radio 버튼이나 비트버튼, 일반 버튼은 위와 같이 만들면 사용이 가능한데,
스피드 버튼은 그려지지 않네요....
스피드 버튼은 그릴 수 없는건지요?
이미지에서 마우스 이벤트 안먹는것 어떻게 해야 할지 고수님들 부탁 드립니다.
감사합니다.
form create 적어주면 화면이 clear 됩니다
AForm.Brush.Style := bsClear;