#1. 첫번째 방법
FSWFAllPapersViewer.Perform(CM_UIACTIVATE, 0, 0);
한번에 안먹을 경우에 대비해서
for I := 1 to 5 do
begin
FSWFAllPapersViewer.Perform(CM_UIDEACTIVATE, 0, 0);
한번에 안먹을 경우에 대비해서
for I := 1 to 5 do
begin
FSWFAllPapersViewer.Perform(CM_UIDEACTIVATE, 0, 0);
FSWFAllPapersViewer.StopPlay;
FSWFAllPapersViewer.Play;
FSWFAllPapersViewer.Perform(CM_UIACTIVATE, 0, 0);
// Sleep(100);
Application.ProcessMessages;
end;
FSWFAllPapersViewer.Play;
FSWFAllPapersViewer.Perform(CM_UIACTIVATE, 0, 0);
// Sleep(100);
Application.ProcessMessages;
end;
#2. 두번째 방법
public function setReSize(ASizeStr : String) : String
{
{
var param : Array = ASizeStr.split(/,/);
this.width = param[0];
this.height = param[1];
return "Success";
this.width = param[0];
this.height = param[1];
return "Success";
}
선언하고
ExternalInterface.addCallback("setReSize", setReSize);
등록한 다음에
델파이에서
tmp := format('%d,%d', [pnlFlex.width, pnlFlex.Height]);
Flash.CallFlashFunc('setReSize', tmp);
Flash.Repaint;
호출해 주도록 함.
선언하고
ExternalInterface.addCallback("setReSize", setReSize);
등록한 다음에
델파이에서
tmp := format('%d,%d', [pnlFlex.width, pnlFlex.Height]);
Flash.CallFlashFunc('setReSize', tmp);
Flash.Repaint;
호출해 주도록 함.
#3. 세번째 방법
swfViewer.DoObjectVerb(OLEIVERB_SHOW);
'프로그래밍 > Delphi' 카테고리의 다른 글
키보드 후킹 예제 (2) | 2010.05.27 |
---|---|
뮤텍스를 이용한 세션에 상관없이 중복 실행방지 방법 (0) | 2010.04.16 |
TADOQuery가 현저히 느려질 경우 (1) | 2010.04.12 |
[Delphi]외부 프로그램 실행시키기 Source (0) | 2010.03.11 |
델파이 format 관련 팁 (1) | 2010.02.01 |