var
cwidth, cheight: integer;
procedure TfrmMain.FormCanResize(Sender: TObject; var NewWidth,
NewHeight: Integer; var Resize: Boolean);
begin
if(Resize=True) then begin
if(NewWidth=cWidth) and (NewHeight=cHeight) then begin
WMP.DoObjectVerb(0);
end;
end;
end;
procedure TfrmMain.FormResize(Sender: TObject);
begin
cwidth:=frmMain.Width;
cheight:=frmMain.Height;
end;
를 사용하십 됩니다.
OLE 컨트롤이라서. 변화된것을. 적용 시켜야 합니다.