안기훈 wrote:

> 안녕하세요?

> 어플리케이션 작성시 이벤트 발생시 폼을 열어줄때(예를들어 버튼이벤트)

> 계속 클릭하면 폼을 여러개 열어줄 수가 있는데 이것을 막고자합니다.

> 몇년전에 제가 써본 기억이 조금 있어서 그런데

> Screencount를 썼던것 같은데

> 어떻게 쓰는지 아시는분 알려주세요.

>

>

제가 사용하는 function인데요..응용하시면 될거에요..



function TMainPas.FromVislbleCheck(FormName:string): Boolean;

var

i : integer;

begin

Screen.Cursor := crHourGlass;



Result := False;



if MDIChildCount > 0 then

begin

for i := 0 to MDIChildCount - 1 do

if UpperCase(MDIChildren[i].Name) = FormName then

begin

if MDIChildren[i].WindowState = wsMinimized then

MDIChildren[i].WindowState := wsNormal

else

MDIChildren[i].BringToFront; // 폼이 뒤쪽에 있을경우

Screen.Cursor := crDefault;

Result := True;

Exit;

end;

end;

Screen.Cursor := crDefault;

end;