안녕하세요.^^
저기 폼에 패널을 1개를 넣고 그 패널안에 패널 한개를 더 넣어서
폼을 시작하면 패널안에 넣은 패널은 보이지 않게 했다가
마우스가 숨은 패널로 옴기면은 숨은 패널이 나타나게 하고 싶거든요.
그런대 무조건 마우스가 올릴때 마다 나타나는것이 아니고
폼이 최대화되었을때만 실행하게 할려면 어떻게 하면 돼나요??
procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
if WindowState = wsMaximized then
if 마우스좌표가숨은판넬위 then
숨은판넬.Visible := True;
end;
WindowState가 wsMaximized인가를 판단하시면 되겠네요...
procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
if WindowState = wsMaximized then
if 마우스좌표가숨은판넬위 then
숨은판넬.Visible := True;
end;
^^ 항상 즐코하세요...